










• 8 frygtindgydende modstandere med hver 
sin kampstil. 
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• K.O. meter, bedste K.O. tid, score og bonus 
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• Ekstra boksere kan loades ind fra bandet. 

• Hall of fame. 

• Anbefalet af svaervaegtscham- 
pion Frank Bruno. 
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Story 


Hvilke spil kommer til at ligge un¬ 
der trceet? 

- Og hvad vil du fordrive jule- 
dagene med? 

SOFT Special kan allerede nu lefte 
sloret for nogle af vintertidens 
bestsellers, direkte fra arets kcem- 
peudstilling, The Personal Com¬ 
puter World Show i London - com- 
puterejernes hovedstad. For selv- 
folgelig havde vi en korrespon- 
dent med... 


■ Det er Englands hoved¬ 
stad, hele Europa valfarter 
til, ndr der skal studeres 
computer-nyheder. Hvert dr 
i September afholdes i nogle 
dage den legendariske 
PCW-udstilling. Helt klart en 
af drets begivenheder for da¬ 
ta! olket. Pd linje med Christ¬ 
mas og National Day. 

I dr var udstillingen starre 
end nogen sinde for, hvilket 
ikke mindst skyldtes softwa¬ 
re. Hovedparten af de udstil- 
lende flrmaer var nemlig 
software-huse, og hvis no¬ 
gen mente, spil var pd vej 
”yt”, cendrede de prompte 
mening pd drets PCW - den 
ottende af slagsen og med 
endnu en rekord: Der var 
mere software end nogen 
sinde for. 

Detie sidste har givet anled- 
ning til bekymring. Arrango- 
ren, et velanset blad ved 
navn Personal Computer 
World, har nemlig bekendt- 
gjort, at messen fra og med 
1986 vil v(Bre lukket for soft¬ 
ware. Der vil blot kunne fin- 


des hardware og tilbehor, for 
det celdre blad - en series og 
business-like grandfather - 
mener, software ncssten har 
overtaget udstillingen (hvil¬ 
ket, i parentes bemcerket, 
heller ikke er helt logn... 
Men pyt, software er da ikke 
at kimse ad). Nix, siger man, 
nul spil. Imidlertid presser 
spll-producenteme og de 
besogende hdrdt pd, sd der 
er en chance for alligevel at 
kunne se GAMES pd naeste 
drs PCW. 

Men i dr var de her altsd. I 
stor stil. Der var noget for en- 
hver smag og masser at vcel- 
ge blandt - noget af det kom¬ 
mer endda aldrig til Dan¬ 
mark, kun det bedste gor. 
Snart sagt alle de kendte 
spil-leverandorer var samlet 
pd et sted, sd for joystick- 
knaekkerne var det blot at gd 
i gang. 

Det var der ogsd flere, der 
gjorde, hvorfor spil-firmaer- 
nes popularitet ligefrem kun¬ 
ne mdles pd antallet af ivrige 
14-drige foran skcermene. 


Selv de to forste dage, hvor 
messen udelukkende var for- 
beholdt fagfolk og pressen, 
sd man flere af de ndlestribe- 
de std at rykke i joystickene. 
MSX-firmaeme forte sig vcel- 
digt frem, og iscer det 
spil-fikserede publikum fik 
sine lyster sty ret. De nye 
MSX-spil blev vist, heriblandt 
mange lcekre versioner af 
arcade-spll, de nyeste end¬ 
da. Mest interessant var dog 
det nye interface, der kunne 
koble en MSX’-er til en Com¬ 
pact Disc video-pladespiller 
med et storsldet resultat til 
folge: Grillbarernes video- 
spll a la ’’Dragon Lair” kun¬ 
ne ses pd MSX. 

US Gold ikke godt 
nok til Enterprise 
Pd Enterprise-standen vistes 
meget nyt, heriblandt en flok 
US Gold. ’’Raid over Mos¬ 
cow’ ’, ’ 'Beach Head' ’ og fle¬ 
re. Men sd blev det ogsd ba¬ 
re for meget: US Gold versio- 
nen af "Bruce Lee” havde 
Enterprise-folkene nemlig 


smidt tilbage i hovedet pd US 
Gold-folkene med pdskrilten 
’’For ddrlig”. Man mente, 
sagde Kempf fra Enterprise, 
at grafikken ikke levede op 
til, hvad en Enterprise kunne 
prcestere. Hdrde ord fra fir- 
maet, men skulle der laves 
software, skulle det ogsd vce¬ 
re godt. 

Det samme problem plage- 
de dbenbart ogsd til en vis 
grad Amstrad. De fleste nye 
spil til masklnen var "con¬ 
versions” eller Amstrad- 
udgaver al allerede populce- 
re udgaver fra Spectrum og 
Commodore. Mange var 
ddrligt lavet, og grafikken - 
som pd en Amstrad kan la¬ 
ves bedre end begge af de 
femcevnte masklner - var re- 
lativt mildt udnyttet. Meget 
lignede mere Spectrum end 
Commodore, og kun et spil 
som f.eks. ’ ’Warlord’ ’ Ira In¬ 
terceptor horte til de positive 
overraskelser. Ogsd "Sorce¬ 
ry Plus”, den diskbaserede 
efterfelger til flotte Sorcery, 
udmcerkede sig ved eminent 
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graiik. Whoarw!! - For slet ik- 
ke at tale om de flere skcerm- 
billeder. 

Et boh fra 
Melbourne 

Pd en stor stand havde Mel¬ 
bourne House, bogudgiver 
og firmaet bag bdde "The 
Hobbit” og ’’Exploding 
Fist”, kreeret et mini- 
landskab med uhyggelige 
lys-effekter og sorte af- 
skaermninger. Alt imens ho- 
lograiiske billeder at dodnin- 
gehoveder skiftede farve, 
korte en "Ringenes Herre” 
video. Boh! 

Grunden til postyret var det 
nye spil, ’’Lords ot the 
Rings”. Endnu var en proto¬ 
type ikke fcerdig, men tra 
Melbourne House lod det: 
”Hvis du troede, the Hobbit 
var det bedste inden lor ad¬ 
ventures, sd vent til du ser 
dens storsldede fortscettel- 
se ”. Lord oi the Rings har al- 
lerede nu taget programmo- 
rerne over et dr, men man 
lover, det vil vcere et sted un¬ 
der juletrceet. 

Ham den hvidskaeggede- 
du-ved-nok vil ogsd kunne 
bringe flere Melbourne- 
nyheder. ’’Asterix” taler for 
sig selv (til Commodore og 
Spectrum), og "Fighting 
Warrior’ ’ kunne nemt gd hen 
og blive et endnu storre hit 
end ’ 'The Way of the Explo¬ 
ding Fist’ ’. Keep an eye on it, 
som de siger. 

I ovrigt oplyser Melbourne 
House, at omkring juletid vil 
efterfolgeren til ’’Exploding 
Fist” komme springende: 
"The Way of The Exploding 
Fist II”, med endnu mere 
smaeld for pengene. 

OCEANer 
af spil 

Der er ogsd andre nyheder, 
det kunne betale sig at holde 
0je med. Nogle af disse stdr 
der Ocean pd, og ikke uden 
grund. Dette firma er efter- 
hdnden blevet et af Eng- 
lands forende i branchen, og 
dets stand var da ogsd en tro 
kopi af US Gold. Af julenyhe- 
der fra Ocean kan ncevnes to 
spil, bygget over biograffilm: 



Lord i 
herre 


"Rambo: First Blood II” og 
’’The Never Ending Story”. 
Ogsd "Street Hawk”, 
"Knight Rider” og ’’Trans¬ 
formers" er pd vej, ligesom 
underafdelingen Imagine 
Software har lavet Konami 
sports-spil (dem fra arcaden) 
om til Spectrum og Commo¬ 
dore udgaver. ”Kung Fu”, 
’’Tennis”, ’’Hyperally” og 
’’Golf” er nogle af titlerne i 
den nyeste Imagine-staid. 
Beyond er et andet firma, der 
er begyndt at tare pd sig. Fir- 
maets salgschef, Francis 
Lee, udtalte til SOFT Special, 
at man hos Beyond er opsat 


pd at vinde en markedsan- 
del i stil med US Gold og Oce¬ 
an (pd messen kaldet the 
Frankie people. Frankie go¬ 
es to Ocean). Fra Beyond kan 
danskerne op imod decem- 
ber forvente isoer "SUPER¬ 
MAN” og fortsaettelsen af 
"Spy vs. Spy”. Denne Her 
kaldes "The Island Caper” 
og sldr som forventet num- 
mer et i bdde action og gra- 
fik. 

Og sd det brcsndende 
sporgsmal, der vel efterhdn- 
den trcenger sig pd: Hvad 
med US Gold? I min kalender 
stdr et kcempe-kryds ud for 


navnet og ordene DONT 
MISS er skrevet i rodt med de 
obligatoriske fern udrdb- 
stegn bagefter. Bare rolig, US 
Gold blev IKKE forbigdet - de 
havde simpelthen for mange 
nyheder. 

Forst og fremmest blev et par 
nye underafdelinger PCW- 
lanceret. For born og barnli- 
ge sjcele kommer en rcekke 
spil under fcellestitlen 
"KIDS!”, heriblandt en flok 
Donald Duck games. I den 
anden boldgade kommer sd 
"Transatlantic Simultati- 
ons”: Seriose strategi- og 
krigs-spil for den tcenksom- 
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the Rings - Ringenes 


Superman i aktion - pd vej 
for at redde Louis Lane. 


me Commodore-ejer. Og 
midt imellem. . . De vel- 
kendte standard US Gold. Af 
disse nyheder bor iscer 
"Winter Games" fra Epyx 
fremhcsves. Hvad med en 
indenders skitur juleaften? 
Ud at cykle med de skore, 
kunne vcere en dansk over- 
scettelse af Activisions ' 'Tour 
De France” spil, der allerede 
har vceret pd gaden nogle 
uger. De nyere, og mere in- 
teressante spil fra 
Ghostbusters-firmaet omfat- 
ter ’ 'Hacker' ’ (gcet hvad spil- 
let handler om) og de to 
"Ballblazer” og "Rescue on 


Fractalus", begge to udvi- 
klet at Lucasfilm, der ogsa 
stod pd Star Wars serien og 
special effects. 

Endnu mere underligt md 
"Little Computer People Re¬ 
search Project" siges at vas- 
re. I et lille hus pd skoermen 
bor nemlig en lille mand, 
som lever sit helt eget liv. Spi- 
ser, spiller hojt pd stereoen, 
sover, vasker op, hugger 
brcsnde, vasker sig og sd vi- 
dere i samme, brogede dur. 
"Little Computer People” er 
erstatning for TVs Pause-fisk 
og sd kan du endda kommu- 
nikere med dem. Bed din 


mand om at spille klaver, og 
har han et i huset, scetter han 
sig - hvis han er i godt hu¬ 
mor, vel at mcerke - hen og 
improviserer over Beethoven 
(dog ikke scerligt vellykket, 
men det Ice res vel). "Little 
Computer People" vinder 
ved bekendtskab. Fern huer. 
Men der var mere, meget 
mere! Alligata, Anirog, Ar¬ 
gus Press Group, Ariolasoft 
(dem med en 36-skcerms Vi¬ 
deo WaU), Bubble Bus, CRL, 
Domark, Firebird, Intercep¬ 
tor, Llamasoft, Mirrorsoft, Sy¬ 
stem 3 og en overflod at an- 
dre. De var der alle sammen; 


komplet med et hav af nye 
software-titler. Joystick- 
firmaerne kan se lyse tider 
imode, men skal du ud at se 
pd julegaver, bliver valget 
svcert. Der er ncesten for 
meget, der er godt. Engelsk 
topkvalitet, iblandet lidt 
amerikanske stcenk og et pist 
Transatlantic. 

Personal Computer World 
Show er software. Laekker 
SOFTware. Vi vil her i SOFT 
serge for at teste det nyeste, 
hotteste, sejeste fra de storste 
firmaer, lige ndr det kom- 
mer. Fra Storbritannien. 

Rasmus Kristiansen 
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QL SPILLER SKAK 


Sinclair QL har i hele sin lan- 
ge levetid manglet gode spil. 
ingen tvivl om det. Et al de 
mest fremragende spil blandi 
de 8-10 stykker. der dog er 
dukket op, er helt klart skak- 
programmet QL-Chess ira 
Psion, markedsteri al Sinclair. 

QL-Chess, der er karet som 
vinder al World Microcompu¬ 
ter Chess Championship 
1984, indeholder et utal al la- 
ciliteter. Der er skakure, hjcel- 
pemidler, mulighed lor opstil¬ 
ling al en onsket situation pd 
skakbrcedtet og massevis af 
svcerhedsgrader og kom- 
mandoer. 

En iojnelaldende ting ved 
QLl-Chess er den utrolig llotte 
3D-opstilling al skakbrcedtet. 
Her er QL's hoje oplosning ud- 
nyttet til bristepunktet med 
llotte skygger pd brikkeme og 
lignende. 

Den traditionelle ' ’llade" op¬ 
stilling al brcedtet kan dog 
ogsd vcelges. Ved denne op¬ 
stilling er der samtidig plads til 
skakurene. lister over kom- 
mandoer og trcek samt diver¬ 
se andre oplysninger. Alt det- 
te md man undvcere ved 3D- 
opstillingen. 

Kommandoer er der som 
ncevnt bunkevis al, mere 
prcecist omkring 20 stykker. 
Der tindes selvtelgelig de obli- 
gatoriske HINT og TAKEBACK, 
som henholdsvis giver spille- 
ren det sidste trcek. Derud- 
over rummer QL-Chess bl.a. 
mulighed lor at genspille et 
helt spil (REPLAY), analysere 
spillet og udskrive de trcek, 
computeren overvejer (ANA¬ 


LYSIS) og lade computeren 
spille mod sig selv (DEMO). 
Har man en printer, kan 
programmet udskhve trcek- 
kene etterhdnden. som spillet 
forlober (PRINT), og skulle et 
spil trcekke i langdrag, kan 
du - naturligvis - gemme og 
senere hente det Ira micro¬ 
drive (MDV-S). 

Kommanodne LEVEL bruges 
til at vcelge en al de 14 svcer¬ 
hedsgrader. hvor compute¬ 
ren har tcenketider Ira under 
2 sekunder til uendelig tid. 
Selv pd det laveste niveau 
med under 2 sekunders tcen- 
ketid yder computeren en fin 
modstand. 

For at det ikke skal vcere 
logn, kan du desuden lor- 
doble antallet al niveauer til 
28. Det gores med komman- 
doen EASY, der lorbyder 
computeren at tcenke. MENS 
spilleren selv sidder og tcen- 
ker! 

Vi er ikke et ojeblik i tvivl om. 
at QL-Chess blandt skak- 
programmer placerer sig helt 
i spidsen (hvis ikke lorrest). 
bdde ndr det gcelder bruger- 
venlighed, faciliteter, hurtig- 
hed og styrke. Som bekrcef- 
telse pd sidstncevnte provede 
vi i ovrigt at lade QL-Chess 
spille mod et al de bedste 
skakprogrammer til lillebror 
Spectrum med sd vidt muligt 
samme tcenketid. Resultat: 
Spectrum var overlegent ud- 
manovreret i 28 trcek! 
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■ ’’BIZZICOM” er et lorret- 
ningskontrolsystem lor min- 
dre handlende. der gerne vil 
udove lagerkontrol og loreta- 
ge analyser over indsamlede 
data. 

Programmet bestdr al to dele 
Forstedelen er lagerkontrol- 
len, hvor der pd en rimelig let 
mdde kan indlores lorskellige 
oplysninger som f.eks. inde- 
liggende antal al lorskellige 
varer, priser pd disse. ordrer, 
skyldnere osv. 

Del 1 er hovedsageligt et godt 
kontrolsystem til umiddelbar 
brug al den handlende. Det 
bruges egentlig kun til opsyn 
med lager og overblik over 
eventuelle indkob. 

Del 2. analysedelen. skal ha¬ 
ve indloadet de dele af Del 1, 
som man onsker behandlet. 
Derefter kan man ellers Id op¬ 
lysninger om profit, tab. 
momsbetaling. Altsd kort sagt 
en slags kortsigts analyse 
over lorretningens okonomi- 
ske holdbarhed. 

Et program som ’’BIZZICOM” 
er ikke netop Spectrum's 
stcerke side med dens lange 


load/save tid, men hvis man 
har tdlmodighed er "BIZZI¬ 
COM” et yderst gedigent 
salgsanalyse og bogholderi- 
program. Bl.a. lordi lorlatte- 
ren har valgt at sikre bruge- 
ren mod alt lor store tab al da¬ 
ta ved at lave tvungen sav¬ 
ing elter 100 indtastede va¬ 
rer /elementer. 

Hvad angdr kapaciteten al 
’’BIZZICOM” skal vi ncevne, 
at der i Del 1 er plads til 390 
varer, og at Del 2 kan be- 
handle 500 varer. For at kom- 
me over dette kan man have 
Here Del 1 filter, men sd bliver 
det mere besvcerligt. 
’’BIZZICOM” er nok for smdt 
og lor langsomt til at henven- 
de sig til kobmcend, men til 
folk med et lille varelager. og 
til storre butikker, der har helt 
separate lagre som l.eks. 0 l- 
lagret, er det tydeligvis meget 
velegnet. 
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■ Endelig, endelig Andes der 
en hovedperson i et spil, som 
du, kcere leaser, rigtigt kan 
identilicere dig med. Spillet 
hedder Herbert’s Dummy 
Run. 

Hovedpersonen. der hedder 
Herbert, er en styg lille baby, 
som er blevet veek fra sine 
forceldre i et stormagasin. Du 
skal sd styre Herbert tilbage til 
hans forceldre, der stdr og 
venter i stormagasinets ' 'bor- 
neaf hentningsrum''. 
Herbert’s Dummy Run er ef- 
terfolgeren til "Everyone's a 
Wally", som vi anmeldte i 
AOD nr. 5/6. Dengang skrev 
vi om Wally og hans venner, 
at de var med i en meget god 
og meget ny type spil. 
Mikro-Gen, der har lavet spil- 
lene, er dog (som de fleste 
andre softwarehuse) faldet for 
at lave let cendrede kopier af 
deres tidligere bestsellere, og 
dette spil er da ogsi et pro- 
dukt af en sadan handling, 
selv om det stadig er meget 
sjovt og underholdende. 
Grafikken er opbygget fuld- 
stcendig som i forgeengeren, 
men da der i Herbert's Dum¬ 
my Run kun figurerer 1 per¬ 
son mod 6 i "Everyone's a 
Wally" er den trods alt lidt 
ddrligere end det 11-13, vi 
gav til Wally. 

Lydsiden er svag. Bortset fra 
indledningsmelodien hares 
der kun smd krr-krr og beep 
lyde, ndr Herbert dummer 
sig. 

En konklusion pd Herbert’s 
Dummy Run md veere, at 
Mikro-Gen pd trods af, at de 
har taget ret meget fra for¬ 
geengeren. alligevel har fdet 
fremtryllet et underholdende 
spil, med enkelte nye ting. 

I avrigt er der en detalje, som 
iscer du vil elske .... der gi¬ 
ves ikke point, men vingum- 
mier efter hvor godt du klarer 
dig.D 


UDVIKLINGI 
EVENTYR 

■ Skal man damme efter an- 
tallet af adventures pd mar- 
kedet, md de virkelig veere 
det helt store nummer. Hvem 
mon kaber alle de adventu¬ 
res, for hvis det er dig, sd tag 
ligeogse her. 

Det kan lade sig gare, fordi 
du med dette program kan 
skabe dine egne adventures 
pd op til 35K, og dermed slip- 
pe for at kabe adventures. 
The Quill er ikke lige sddan 
at gd til. men der medlalger 
en letforstdelig fyldig manual 
(engelsk). Man har hele tiden 
to hovedmenuer at holde sig 
til. og hvis man begynder at 
rode sig dybt ind i program- 
met, har man ogsd diverse 
undermenuer. Menuerne 
minder meget om hinanden. 
Nogle af The Quill's fortreeffe- 
ligheder er det indbyggede 



supersprog, som du kan ud- 
nytte uden at have besveer 
med svarmeldinger til spille- 
ren. Endvidere er der mulig- 
hed for smarte pointsystemer, 
og de feerdige eventyr bliver 
meget hurtige. 

0nsker man virkelig at kaste 
sig ud i eventyr skriveriet, fds 
der ogsd et program kaldet 
"The Illustrator" fra samme 
firma. hvormed man kan illu- 
strere sit eventyr med flotte 
farvegrafik billeder. 

Bag i den medfolgende ma¬ 
nual stdr: Hvis du regner med 
at scelge et eventyr skrevet 
med The Quill, ville vi veere 
taknemmelige. hvis du et 
sted i eventyret ville ncevne, 
at det var skrevet med ’ The 
Quill". Sd her kunne du md- 
ske hente lidt gryn. 
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All om Data s Top-25 Bitliste over Danmarks mat populcere programmer til 
hjemmecomputere bygger pd oplysmnger fra 50 computertorretnmger. stor- 
magasmers computerafdelinger og boghandlere landet over 
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Det lader til, at de fleste soft- 
warefabrikanter beundrer 
programmet ’’Hobbit” fra 
Melbourne House med dets 
uafhcengige figurer, der rea- 
gerer, uden at spilleren be- 
hover at veere til stede. 

I hvert fald er der mange, 
som er begyndt at gd 
Melbourne-huset i bedene 
med adventures, der kan det 
samme. 1 fuld overensstem- 
melse med dette har soft- 
warehuset Gargoyle games 
netop smidt arcade/adventu- 
respillet ”Dun Darach” pd 
markedet. 

Dette adventures handling er 
ret traditionelt. Du er manden 
Cuchulain, der efter at have 
veeret i krig, fdr kidnappet 
din bedste ven Loeg og sd 
skal finde ham i byen Dun 
Darach. 

Spillet har de selvreagerende 
figurer fra Hobbitten plus Val- 
hallas tegnefilmsagtige frem- 
stillingsmdde, men desveerre 
har figurerne ikke nogle spe- 
cielle preeg. Bortset fra at de 
bcerer pd nogle forskellige 
ting, og at nogle af dem stjee- 
ler. 

Figurerne i spillet (ca. 11) er 
ogsd kun tegnet pd 3 forskel-' 
lige mdder. Dig selv plus en 
mand og en kvinde, der sd 
hver for sig symboliserer 
samtlige mcend og kvinder. 
Til spillets ros skal siges, at selv 
om der kun er tre sprites, sd er 
de meget flot lavet, og om- 
trent syv cm. hoje. 

Spillets plot med at handle og 
scelge, bytte og stjcele er tem- 
melig ordincert og det sam¬ 
me er mdlet (finde din ven), 
men alligevel er ”Dun Da¬ 
rach” et gedigent adventu¬ 
re, omend det er ret ensfor- 
migt.D 

(Twilight) 

Grafik 10 

Lyd (ncesten ingen) 

Action (Ingen) 

Fcengslende 8 

Pris/kvalitet 9 






































































I SELSKAB MED 
SCARFACE 


■ Et rigtigt gangsterarca- 
de/adventure. serveret med 
led gralik. morsom tekst og 
rigtig action . . . var det no- 
get? 

Spillet heddei Mugsy. er fra 
Melbourne House og er et dr 
gammelt. men pd trods al. at 
det er et (i denne branche) al- 
derstegent program, er det al- 
ligevel sjovt og underholden- 
de. 

Du er gansterbossen Mugsy, 
der skat prove at overleve i 
dit distrikt. uden at rage uklar 
med hverken politiet eller 
gangsterne. Din egen bande 
prover op- og nedture. alt ef- 
ter hvordan du handler, 
m.h.t, kob af vdben, bestik- 
kelser og antallet al klienter 
(hce hce), 

Spillet er bygget op som en 
tegneserie med billeder, der 


kommer et al gangen og 
oven i dem noget tekst. 
Billederne er meget flotte. De 
er tegnet med et tegnepro- 
gram Ira Melbourne House - 
Melbourne Draw. 

Teksten er ikke engelsk, men 
amerikansk med led gang- 
sterslang al den vcerste (bed- 
ste?)slags. Hvis du l.eks. bru- 
ger mange penge pd vdben, 
siger din ncestkommande- 
rende: Cripes, Boss, The guys 
could light a war with the 
hardware that'll buy. 

Pd den mdde er hele spillet 
lyldt op med den ledeste 
slang. 

Ndr et dr er gdet, vises der en 
lille mikrolilm, hvor du enten 
ser en restaurant under et 
"shoot up" eller et gangster- 
opror pd dben gade. 

En gang imellem ndr du ra- 


HORRIBEL 

HERMELIN 

■ Det er en gdde, et mysterie 
og en lantastisk hemmelig- 
hed. Hvordan mon Gremlin 
Graphics bcerer sig ad med 
at lave sddan et spil! Gosh! 
Spillet Sam Stoat Salebreaker 
er simpelt hen selvskreven til 
konkurrencen om mest irrite- 
rende. mest lejllyldte og mest 
traditionelle spil, med noget 
at den mest skore gralik, ver- 
den endnu har set. 

I dette spil skal du med Sam 


Stoat (Hermelin) bryde ind i 
fore huse lor at skalle grunker. 
Husene er ens, men tempoet 
bliver hurtigere og hurtigere 
Ira hus til hus. Du bliver jagtet 
af underlige dimser range- 
rende lige fra allaldsbunker 
til bygnomer! og udover at 
ncevne, at spillet har mange 
bugs, er der ikke mere at sige 


7-8 

Lyd: 6 

Action: 7 

Fcengslende: 6-7 

Pris/kvalitet: 6-7 


BESV/ERLIGE 

BOGSTAVER 


■ Et eventyr, der bestdr al tolv 
eventyr, som tilsammen ud- 
gor eventyret Ira for. 
Forvirret? Hvorlor dog det, 
ovenstdende er nemlig fuld- 
kommen korrekt. 

I The Runes of Zendos er md- 
nederne nemlig blevet stjdlet. 
Ja, vi mener januar. tebruar, 
marts og co. Og det er da en 
helts (din) pligt at belri dem. 
Det er den onde troldeskurk 
Zendos, der har stjdlet dem, 
og spcerret dem inde pd sit 
slot tolv lorskellige steder, i 
tolv timeglas. Det skal du nu 
ikke vcere ked, lor ellers hav- 
de vi ikke ldet dette udmcer- 
kede eventyr. 

For at fd mdnederne ud al ti- 
meglassene krceves det, at 
man tyder den kode, der stdr 
nederst pd hvert timeglas. I 
lolge omslaget skulle der vce¬ 
re hjcelp over det hele i pro¬ 


gramme! og i selve omslaget, 
men tro nu ikke at The Runes 
of Zendos er en stor loppet- 
jans . . 

Ndr du bevceger dig rundt og 
kcemper. spiser og tager ting, 
sd illustreres dine handlinger 
pd den overste del af skcer- 
men med en rimelig grafik. 
sproget derimod er pd nogle 
punkter rcedselsfuldt. 
Samtidig med at programmet 
godtager lange scetninger 
som "Attack the guard with 
the mighty axe", sd lorstdr 
det ikke engang, at "get" er 
synonym til "take". 
Undervejs i spillet kan man 
skilte mellem de tolv eventyr 
med at skrive "Adventure 
one, two, osv."D 
Gralik: 8 

Lyd: (ncesten ingen) 

Fcengslende: 9-10 

Pris/kvalitet: 9-10 
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FRYGTL0S 

COWBOY 


■ Aret er 1885 i en hed arken 
et sted i Det vilde Vesten. En 
gruppe berygtede bankrave- 
re har sldet sig ned i ncerhe- 
den af en gammel forladt mi- 
neby midi inde i et farligt 
indianer-territorium. Udbyttet 
at deres sidste raveri har de 
gemt mndt omkring i byen, 
som konslant hjemsages af 
radhuder, klapperslanger og 
hungiende gribbe, for ikke at 
snakke om skarptskydende 
ravere, der passer pd, at in¬ 
gen ncermer sig deres kostba- 
re skatte. 


Grafik: 

11-13 

Lyd: 

9-10 

Fcengslende: 

10 

Action: 

9-10 

Pris/kvalitet: 

10-11 



Sddan er situationen i Talent's 
adventure WEST til Sinclair 
QL. Du har til opgave at be- 
vcege dig ind i minebyen, 
samle ravernes udbytte og 
derefter skaffe oplysninger 
om, hvordan du slipper hel- 
skindet gennem arkenen til- 
bage til din hjemstad. Ved 
hjemkomsten bliver du be- 
damt med nogle points, som 
afhcenger af dine prcestatio- 
ner og samtidig udncevnes 
du til en tilsvarende rang - 
toppen af karieren er sheriff, 
hvor adventuren er last. 


KARTOTEK 
PA DANSK 


Inden du kommer sd langt, 
har du imidlertid nok af pro- 
blemer med at skyde ravere 
og slanger. holde gribbene 
pd afstand og undvige vilde 
indianerstammer. Desuden 
er du nadt til at finde ekstra 
patroner til din sekslaber og 
samle andre ting - f.eks. dy¬ 
namic tcendstikker, en flaske 
med nitroglycerin og en 
skovl. En rcekke af disse skal 
du nemlig bmge i dit forsag 
pd at komme frem til skatte- 
ne. 

’ ’WEST’ ’ er desvcerre udeluk- 


ger rigtig meget uklar med en 
eller anden gmppe, kommer 
du ud for et opgar med "The 
Hitman from Detroit", og sd 
gcelder parolen "Lev og lad 
da". Under de situationer gad 
jeg ikke vcere tilskuer. Denne 
sektion af spillet er ren action. 

Lydsiden er god med ma- 
skingevcerlyd og melodi, ndr 
der altsd er noget 1yd. □ 


■ Kartobase 464 er et helt 
igennem dansk kartoteks 
program til Amstrad. der kan 
erhverves pd sdvel bdnd som 
disk. Programmet giver mu- 
lighed for at oprette kartote- 
ker med op til 10 felter pr. 
kort. og op til 23 K data i alt. 
Programmet har en del facili- 
teter ud over de obligatoriske: 

Ved sagning kan man vcelge 
at sage pd et eller flere be- 
stemte sageord. Eller man 
kan opgive, at man vil have 
alle de kort ud, hvor f .eks. sal- 
doen er negativ. 

Sagningen er dog ikke udvi- 
det til at kunne klare en- 
ten/eller kriterier. Mdske ved 
vi, at en eller anden fyr hed- 
der Hansen til eftemavn og 
enten Hans eller Henrik til for- 
navn. Til gengceld er sagnin- 


kende et tekst-eventyr. Der er 
pd trods af mulighederne i 
QL'ens store hukommelse og 
direkte adgang til over 200 K 
pd Microdrive ikke andet 
end et enkelt dbentskcerms- 
billede. som dog til gengceld 
er umddeligt flot. Med hen- 
syn til forstdelse af spillerens 
ordrer. klarer WEST sig rime- 
ligt med sine omkring 200 ord 
og lige sd mange talemdder. 

Der er mange spcendende 
oplevelser at hente i de mere 
end 130 steder i spillet, men 
nogen egentlige nyskabelser 
inden for adventures, finder 
vi ingen af. WEST er sd at sige 
det klassiske eksempel pd et 
godt adventureprogram, som 
alt i alt er ganske fomajeligt at 
spille.D 


Grafik og 1yd: 

Forstdelse: 

Action: 

Fcengslende: 

Pris/kvalitet: 


Ingen 

9 

11 

9 

9 



gen ligesom sortenngen skre- 
vet i ren maskinkode, sd det 
gdr pcent hurtigt. 

Sorteringen kan i avrigt fore- 
tages i bdde opadgdende og 
nedadgdende rcekkefalge, 
efter et valgfrit felt. Der er rriu- 
lighed for at lave et Password 
pd ens tophemmelige karto- 
teker, der sd skal indtastes 
hver gang, man henter sit 
kartotek ind. 

Ved printerudskrift kan man 
vcelge mellem 3 forskellige 
formater: 

1: Hvert kort, et felt pr. linie. ef¬ 
ter hinanden. 2: To kort, et felt 
pr. linie, ved siden af hinan¬ 
den. 3: Et kort pr. linie, max. 3 
felter. 

Man kan enten udskrive hele 
kartoteket, eller man kan 
give betingelser, som under 
sagning, for hvilke kort der 


skal udskrives. 

Endelig kan man cendre pd 
feltteksten og gemme og hen¬ 
te sit kartotek for bdnd eller 
disk. 

Manualen, der ialger med i et 
ringbind, bestdr af 24 dansk- 
sprogede sider, der gennem- 
gdr programmet trin for trin. 
Den starste ulempe ved pro¬ 
grammet er, at hvert enkelt 
felt maximalt kan indeholde 
25 bogstaver, og det er ofte lor 
lidt.Ogsd i forbindelse med 
sagning og printerudskrift 
mangier programmet lidt fle- 
xibilitet. PCS kalder dog selv 
programmet for semiprofessi- 
onelt, sd det md vcere rime- 
ligt nok. og til 199 kr. for 
bdndudgaven er program- 
met da ogsd anvendeligt i 
mange sammenhcenge.n 
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Jet Jones 


■ Dette spil, kaldet Jet Jones 
ligner viikelig et kebespil. Ha- 
stigheden er stor. og gialikken 
god. 

Du skal flyve rundt i torskellige 
rum, og skyde onde robotter. 
Dette er ikke altid lige nemt, 
men tortvivl ikke! Efter hver 
skcerm. bliver robotteme hur- 
tigere og hurtigere. Efter nog- 
le fd skcerme, skal man virke- 
lig have kontrol over situatio- 
nen for ikke at do. 

For at sikre. at der ikke sker i 
indtastnigen, er der check¬ 
sum pd datalinier. Checksum 
betyder, at programmet selv 
tester om der er fejl i indtast- 
ningen. 

Spillet krcever joystick i port 
2.D 

Bo Johansen 


PROGRAM! JET JOKES. 933 

I POKE 33281,0■POKE 33269,0 
I PR I NT " < CLR ) " 

10 FOR J* 13872 TO 16319IREAD QIUJ-UI»0 
I POKE J,QI NEXT J 

20 IF UK >21146 THEN PRINT-C L.BLAH>SP 
RITE DATA ERROR-■END 
30 FOR J>49132 TO 49643IREAD QIUI-UHO 

■ POKE J.OUEXT J 

40 IF UK >11 1427 THEN PR INT-< L. BLAA >M 
C DATA ERROR-IEND 
SO POKE 33290,01GOSUB 900 
60 GOSUB 800 

70 POKE 34296,131SP "2040 I POKE SP,248 
■POKE SP*1.230IP0KE SP*2,23I 
■POKE SP*3,232 

73 POKE SP*4,233■POKE SP*3,231 

■ POKE SP«6,2341 POKE 233,0 
■POKE 33261,100>P0KE 53248,0 

80"POKE 33269,61 I POKE 33283,4 
■POKE 33286,2lPOKE 33287,1 
■POKE 53288,7lPOKE 33289,7 
90 POKE 33290,81 POKE 53291,3 

■ POKE 33292,II POKE 33293,7 
■POKE 33276,44 

100 PRINT-<CLR,CRSR NE04 , 

SPACE > >€T ONES I • 

110 PR I NT “( CRSR NE03,SPACE)|AZA 100 
I " 

120 PRINT*< CRSR NED3,SPACE)IftZft «U0 

130 PRINT*< CRSR NED3,SPACE>IftZA IA 
l ■ 

140 PRINT"< CRSR NE03,SPftCE >IRZft -^0 











ISO V"33248 * POKE 53264,64 
IFOR K«V*4 TO V«12 5TEP 2 
I POKE K.120IFEXT K 
160 POKE V +3,801POKE V*5,110 

* POKE V *7,1401POKE V+9,170 
I POKE V*11,200 

165 POKE 33277,OlPOKE 53271,0 
170 POKE V*I,7OIF0R J-0 TO 120 STEP 
. 1 I POKE V.JIFEXT J 
200 FOR J-l TO 3000lNEXT 
210 REM SCREEN 1 
220 Ml-1IM2-0IM3-0IM4-0ILE-1 
IOOSUB 300 
230 GOSUB 600 
240 REM SCREEN 2 
230 M1-1IM2-1IM3-0IM4-0ILE-2 
lGOSUB 300 
260 GOSUB 600 
270 REM SCREEN 3 
280 Ml-1IM2-1IM3-1IM4-0ILE-3 
lGOSUB 300 
290 GOSUB 600 
300 REM SCREEN 4 
310 MI■1 I M2-1 I M3-11M4 ■1 ILE-4 
lGOSUB 300 
320 GOSUB 600 
330 REM SCREEN 3 
340 M1 ■ 11 M2 -1 I M3 -1 IM4 - 1 I LE -3 
■GOSUB 300 
330 GOSUB 600 

360 FOR J-l TO 3000INEXT J 
370 PRINT-< CLR.HVID.SPACEIBJX - - I I IT 
- I I“I POKE 33269,0 

380 PR I NT "< GUL,SPACE > \1 SSION COFPLET 
EO. 9ECT0R 7.98 CLEARED.* 

390 PRINT*< BLAA.SPACE >ALL ROBOTS OES 
TROYEO.■ 

400 PR I FIT* (CRSR FE03, SPACE 10) YOUR SC 
ORE IS *(LE-1>»< 10-A>*100 
410 FOR J-l TO 3000IFEXT J 
420 RUN 50 

300 PRIFIT*( CLR,SORT) *> 

510 FOR J-l TO 23IPRINT* 

I \ m > 

* NEXT J 

313 IF LE-3 THEN POKE 33277,60 
■GOTO 320 
316 POKE 33277,0 
320 PR INT"< HOME ,CRSR FED6 , 

SPACE32) |< HVID,SPACE > LEVEL! CRSR N 
ED.CRSR VENSTRE4)“LE 
323 PR I NT “ < HOFE , CRSR FE03 , 

CRSR H0JRE34)FUELI“ 

330 POKE 32893,MIIPOKE 32994,M2 
■ POKE 32993,M3IP0KE 32996,M4 
340 I -67+( Ml *4 J ♦< M2*8 ) ♦< M3» 16 > ♦< M4*3 
2) 

330 POKE 33269,1IPOKE 234,0 
333 POKE 231, RND( 1> * 10-97 
IPOKE 252,RFE( 1 >*7 
360 SYS 49767 
370 RETURN 
600 L-PEEK< 234) 

610 IF L-0 THEN RETURN 

620 IF L-l THEN 700 

630 IF L-2 THEN 730 

640 RETURN 

700 FOR J-l TO 3000IFEXT 
710 PRINT“< CLR,HV10 >* I POKE 33269,0 
IPRIMT- YOUR SCORE IS “< 

LE - I )*< 10-A)• 100 
720 FOR J-l TO 3000IFEXTIRUN 30 
730 FOR J-l TO 1000■NEXT 
760 PRINT“< CLR,HVID)“I POKE 33269,0 
I PR IFIT*( GUL ,SPACE8 >—UEL TOO LOW 
770 GOTO 700 

800 PR INT *( CLR,HVID.SPACE 11>—HOOSE 8 
PEED LEVEL “ 

810 PRINT“< CRSR NED,GUL, 

SPACE3)9) IS 9LTO 1>IS S 

•I “ 

820 PRINT’CBLAA,SPACE8)EASY 
IMPOSSIBLE* 

830 IFEUT*( GRAA2.CRSR NE03 >LEVEL <1- 
9) 

840 IF A<1 OR A>9 THEN 800 
830 POKE 33247,AI RETURN 
900 POKE 637,1281 POKE 33272,23 
910 PR I NT ■< CLR, CRSR NEO.HVIO, 

SPACE 18)|. V 

913 PRINT'(CRSR NED .SPACE 13 > PRESENTS 

920 AK1)- 1 _______ 

325 A*(2>«* >ET >OFES* 


930 A*<3>-“ ~ 

933 A*(4)-*<CRSR FED.SPACE 16>AFO THE* 
940 A*< 3>-*< CRSR FED .SPACE 12> MYSTERY 
OF IAZA" 

942 POKE 33281,0 

943 PRIFfT*( HOFE,CRSR FED101* 

950 FOR J-l TO 31 POKE 646,RFC! I >*n«g 
I PR I FIT AKJUFEXT J 
960 GET B«lIF B*<>**THEN RETURN 
970 GOTO 945 

993 REM >*•«******«***••*•••*•>*• 

996 REM • SPRITE DATA * 

997 REM •*••••***••>•>••*••••*•** 

1000 DATA 0.0,0,3,240,0,6,8 
1010 DATA 0,6,248,0,7,120,0,23 
1020 OATA 120,0,31,240,0,48,0,0 
1030 OATA 33,0,0,33,233,128,33,128 
1040 OATA 0,112,0,0,87,248,0,87 
1030 OATA 234,0,213,234,0,144,6,0 
1060 OATA 240,6,0,0,6,0,40,7 
1070 OATA 0,84,0,0,170,0,0,2 
1080 OATA 0,0,0,0,13,192,0,16 
1090 OATA 96,0,31,96,0,30,224,0 
1100 OATA 30,232,0,13,204,0,0,12 
1110 OATA 0,0,236,1,233,236,0,1 
1120 DATA 236,0,0,14,0,31,234,0 
1130 OATA 127,234,0,127,233,0,96,9 
1140 OATA 0,96,15,0,96,0,0,224 
1130 OATA 20,0,0,42,0,0,83,2 
1160 OATA 0,0,0,0,0,0,0,0 
1170 OATA 0.0,0,0,0,0,0,0 
1180 OATA 0,0,0,0,0,0,0,0 
1190 OATA 0,0,0,183,222,222,0,0 
1200 DATA 0,0,0,0,0,0,0,0 
1210 OATA 0,0,0,0,0,0,0,0 
1220 DATA 0,0,0,0,0,0,0,0 
1230 OATA 0,0,0,0,0,0,0,191 
1240 DATA 0,0,0,0,0,0,0,0 
1230 OATA 0,0,0,0,0,0,0,0 
1260 OATA 0,0,0,0,0,0,0,0 
1270 OATA 0,168,0,2,170,0,2,238 
1280 OATA 0,2,238,0,2,170,0,2 
1290 DATA 154,0,2,86,0,2,170,0 
1300 OATA 0,0,0,0,0,0,0,0 
1310 OATA 0,0,0,0,0,0,0,119 
1320 OATA 0.0,0,0,0,0,0,0 
1330 OATA 0,0,0,0,0,0,0,0 
1340 OATA 0,0,0,0,0,0,0,0 
1350 OATA 0,0,0,5,83,80,42,170 
1360 OATA 168,233,235,235,42,170,168, 
3 

1370 OATA 83,80,0,0,0,0,0,0 
1380 DATA 0,0,0,0,0,0,0.0 
1390 DATA 0,0,0,0,0,0,0,2 
1400 DATA 0,0,0,0,0,0,0,0 
1410 DATA 0,0,0,0,0.0.0,7 
1420 DATA 235,240,60,0,30,32,0,2 
1430 OATA 33,193,226,34,63,34,33,201 
1440 OATA 226,32,8,2,32,14.2.33 
1430 OATA 0,66,32,233,130,60,0,30 
1460 OATA 7,233,224,0,0,0,0,0 
1470 OATA 0.0,0,0,0,0,0,0 
1480 DATA 0,0,0,0,0,0,0,8 
1490 OATA 0,0,28,0.0,42,0,0 
1300 OATA 8,0,0,8,0,0,8,0 
1310 OATA 0,8,0,127,233,232,233,233 
1320 OATA 234,223,104,94,239,107,222. 
227 

1330 OATA 107,222,239,103,222,239. 
107,222 

1340 OATA 239,107,222,239,8,70,233, 
233 

1330 OATA 234,127,233,232,0,0,0,0 
1900 REM *•••«***•*•••*«•*>**•••*• 
1910 REM • MC • 

1920 REM •••**••••••••*••••«••••»* 

2000 DATA 162,200,163,231,137,31,7, 
163 

2010 DATA 232,137,31,219,202,208,243, 

86 

2020 OATA 173,0,220,106,144,13,106, 
144 

2030 OATA 23,106,144,33,106,144,48, 
106 

2040 OATA 144,63,86,174,1,208,224,33 
2030 OATA 144,236,206,1,208,76,22,192 
2060 OATA 174,1,208,224,187,176,226, 
236 

2070 OATA 1,208,76,23,192,174,0,208 
2080 DATA 224,26,144,216,206,0.208, 
162 

2090 OATA 249,142,248,7,76,28,192,174 
2100 OATA 0,208,224,233,176,201,238,0 
2110 OATA 208,162.248,142,248,7,76,31 


2120 OATA 192,165,233,240,1,96,173, 
248 

2130 OATA 7,201,249,240,7,169,1,133 
2140 DATA 233,76,120,192,169,2,133. 

233 

2150 DATA 173,0,208,141,2,208,173,1 
2160 OATA 208,141,3,208,169,2.13,21 
2170 OATA 208,141,21,208,96,165,233. 
208 

2180 DATA 9,169,253,45,21,208,141,21 
2190 DATA 208,96,201,1,240,13,206,2 
2200 DATA 208,173,2,208,208,243,169,0 
2210 DATA 133,253,96,238,2,208,173,2 
2220 OATA 208,208,247,169,0,133.233/ 
96 

2230 OATA 173,1,207,208,1,96,173,4 
2240 OATA 220,41,3,240,11,201,1.240 
2230 DATA 17,201,2,240,23,76,238,192 
2260 DATA 238,4,208,238,4,208,238,4 
2270 DATA 208,96,206,4,208,206,4,208 
2280 OATA 206,4,208,96,238,3,208,238 
2290 OATA 3,208,238,3,208,96,206,3 
2300 DATA 208,206,3,208,206,3,208,96 
2310 DATA 173,2,207,208,1,96,238,7 
2320 OATA 208,239,7,208,173,4,220,41 
2330 OATA 1,240,10,238,6,208,238,6 
2340 DATA 208,238,6,208,96,206,6,208 
2330 OATA 206,6,208,206,6,208,96,173 
2360 DATA 3,207,208,1,96,169,160,141 
2370 OATA 9,208,238,8,208,238,8,208 
2380 OATA 238,8,208,238,8,208,96.173 
2390 DATA 4,207,208,1,96,173,0,208 
2400 OATA 203,10,208,144,3,176,9.76 
2410 OATA 83,193,206,10,209,76,83,193 
2420 OATA 238,10,208,173,1,208,205,11 
2430 OATA 208,144,3,176,3,96,206,11 
2440 DATA 208,96,238,11,208,96,173.30 
2430 OATA 208,170,41,3,201,1,240,3 
2460 DATA 201,2,240,4,96,76,240,193 
2470 OATA 169,0,133,253,234,234,234, 

234 

2480 OATA 234,234,138,106,106,106, 
176,10 

2490 OATA 106,176,24,106,176,39,106, 
176 

2300 OATA 52,96,169,0,141,1,207,169 
2310 OATA 231,43,21,208,141,21,208,32 
2520 OATA 214,193,96,169,0,141,2,207 
2330 DATA 169,247,43,21,208,141,21, 
208 

2540 OATA 32,214,193,96,169,0,141,3 
2330 DATA 207,169,239,43,21,208,141, 
21 

2560 OATA 208,32,214,193,96,169,0,141 
2370 OATA 4,207,169,223.45,21,208,141 
2580 OATA 21,208,32,214,193,96,169,0 
2390 OATA 141,5,212,169,252,141,6,212 
2600 OATA 169,1,141,1,212,169,129,141 
2610 OATA 4,212,169,128,141,4,212.96 
2620 DATA 32,214,193,162,0,160,0,140 
2630 DATA 248,7,140,39,208,136,208, 
247 

2640 OATA 202,208,242,168,1,133,254, 
96 

2630 OATA 173,2,208,141,8,212,169,0 
2660 OATA 141,12,212,169,241,141,13, 
212 

2670 OATA 169,33,141,11,212,169,32, 
141 

2680 OATA 11,212,96,172,233,207,162, 
233 

2690 OATA 202,208,233,136,208,248,96, 
238 

2700 OATA 0,207,240,1,96,206,13,208 
2710 OATA 169,48,141,12,208,173,13, 
208 

2720 OATA 201,80,240,1,96,169,2,133 
2730 OATA 234,96,162,10,169,208,137,2 
2740 OATA 208,202,208,230,162,48,142, 
O 

2730 OATA 208,142,1,208,162,1,142,32 
2760 OATA 208,162,12,142,33,208,96,32 
2770 DATA 0,192,32,74,194,173,30,208 
2780 DATA 169,248,141,248,7,32,16,192 
2790 OATA 32,16,192,32,141,192,32,141 
2800 OATA 192,32,141,192,32,141,192. 
32 

2810 OATA 184,192,32,248,192,32,31, 
183 

2820 DATA 32,55,193,32,102,193,32,8 
2830 DATA 194,32,33,194.32,47,194,24 
2840 OATA 173,1,207,109,2,207,109,3 
2830 DATA 207,109,4,207,208,1,96,163 
2860 DATA 254,240,194,96,-1 
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muR 


smmioncer 


■ Her bringer vi et lille tips- 
program, som karer efter sta¬ 
tists. Programmet genererer 
en udgangsstilling ud fra den 
aktuelle stilling plus 9 rcekker, 
der laves ud tra den farste 
rcekke. 

Ndr du starter programmet 
larste gang, startes det med 
RUN, og ved restart tastes GO¬ 
TO 100.D 

Jens V. Nielsen 





HCT 

Hans Cm Thavsen 



1010 DIH KflUAL "2" .URL "13" ,UAi- 
"10"): F OR N=UAL "i” TO UAL ”13 


II£ S !*•* *»» v w v u 9 » | 



1080 LET X*U+UBL "26": GO SUB UA 
L "8570": IP H3 <>URL "33" THEN L 
ET HH*(M2>M3) 

1505 LET .Ml -.HI ».MH. LET Ul =U1 AMU 
1600 NEXT N 


1020 INPUT (~?=R£T. KAMP NRN, 1600 NEXT N 

" HJEM. : "» iK* (URL "1",N). PRINT 1705 LET N ’ H a0 SUB UAL "B500 

TfiB URL "3‘* -LEN STRS N; N; ";K*< ..LET HI-HI♦(P+VAL " 1") / (K +UAL 


0 > REM © J . U .NIELSEN 1905 


TAB URL "3 -LEN STRS N;N;" ,K»< 

1025 IP'k*'iUAl' "1" ,N.UAL "1">*"T 
" THEN LET N-N-UAL "1": GO TO UA 

1030 INPUT C"KAHP NR.";N;” L)DE." 
>;K*CUAL "3", N>: PRINT KSIUAL "3 
- ,N) 

1035 NEXT N 

1040 GO SUB URL "200": POR C-UAL. 

•l" TO UAL •13“: POR 2-UAL "1" 
TO UAL "3" 

1045 POR X-UAL "l" TO UAL "10": 
IP K* <Z,C,X) (>- " THEN NEXT X 
1050 LET H*-K»IZ,C, TO X-UAL "1" 


10 DIH A*(URL "3",UAL "16",UAL 
"42") DIH C*(UAL "3",UAL "16", 
UAL "4"): DIH T*(VAL "10",UAL "i 
3”) 

15 LET S-UAL "32" 

20 FOR F=UAL "1" TO UAL "3": P 
OR N-UAL "1" TO UAL "16": INPUT 
(F; " DIU. NR. "; N; •• ");A*(P,N, TO 


1060 GO SUB UAL "7000": XP EEJL « 
UAL "1" THEN INPUT ("NYT NAUN KA 
HP "; C; ” •• ) , K* (Z , C) : GO TO UAL " 


ir, uiu. ■ ,n. Iu 

UAL "ID"): PRINT A*(F,N, TP URL 
"10") NEXT N NEXT P 


25 PRINT AT UAL "11",UAL "14"; 
"VENT." 

30 FOR P-VAL "1" TO UAL "3" 

40 FOR N-UAL "1" TO UAL "16" 

45 LET C*(P,N,UAL "4")«CHR* N 
50 POR Z-N TO UAL "16" 

55 LET A*(F,Z,VAL "11" TO >" 
60 IP A*(P,N)>A*(P,Z) THEN LET 
BS=A*IF,N>. LET 5* <P,N) -A* (F,Z.« 


O -A* (P,Z.» 


LET A» CP.Z) -8* 

70 NEXT Z: NEXT N: NEXT P 


100 POKE UAL "23650",UAL "8" 
105 PAPER UAL "7": BORDER UAL 


HP ";C;" "),K*(Z,C): GO TO UAL “ 

1045" 

1066 IP Z-UAL "1" THEN LET H-N 

1067 IP Z»UAL "2" THEN LET U«N 

1068 LET N-H 

1070 NEXT Z. GO SUB UAL "1500" 
1060 NEXT C: GO SUB UAL "9540": 
GO TO UAL "2500" 

1090 RETURN 

1S00 IF C-UAL "4" OR C-UAL "7" O 
R C-UAL "10" THEN PRINT 
1502 PRINT " ";A*<F,H, TO UAL "1 
0")";A*(P,U, TO UAL "10"), 
1505 LET HI"UAL "0": LET U1>UAL 
"0": LET N-H: LET X-U+VAL "10"; 
GO SUB UAL "8570": XP H2 « >UAL "3 
2" AND H3 0UAL "32 ” THEM LET HI 
«H2: LET U1-M3 

1510 POR n-UAL "1" TO UAL "16": 
IP n «h OR n-U THEN GO TO UAL "16 
00 " 


7": INK UAL "0" 

110 GO SUB UAL "200" 

120 RESTORE UAL "S>£20" EDR „N-U 
AL "1" TO UAL "7": READ B*: PRIM 
T AT UAL "2"+N»UAL "2",UAL "1";N 

; • ";B»: NEXT N 

130 PRINT .***************** 

«**••*•»*»**•»*” 

140 LET BS = INKEY $ „__ 

TO 0 UAL "140"" ° R B#> 7 ™ EM 00 
160 GO SUB UAL B*»1000. GO TO \» 
AL "100" __ __ 

200 CLS : PRINT "••»••••••** TI 

P-65 »»*»*»*»•***»: RETURN 
1005 GO SUB UAL "200" 


1|15 LET HU=VAL "0": LET HH-VAL 


1520 IP A*(P,N,H*UAL "10")=" " A 
ND A»(P,N,H*UAL "26")=" " THEN G 
O TO UAL "J 600" 

, 1B ?£=k5T X«H*UAL "10"; GO SUB UA 

k T t 

1540 LET X=N*UAL "26": GO SUB V)A 
«*>E,N,UpUAL "10") =•• " R 

^tS $ ^ n '^^ =" •• ™ EN o 


1710 LET N=U: GO SUB URL "8500": 
LET U1 .UltP/IKtUAL "l".l 

* 8 2? i then let t*<val -i 

xiSiC T1 - URL " a ® LeT T 

1B10 IP Hl.'Ul THEN LET T* (UAL "1 

x£rl -ai" Lrr T1 - urtL T 

x!sL-"^ 2 "^ 

1030 PRINT TB(UAL "1",CJ 
1040 POR NaUAL "2" TO URL "10" 
1050 LET U=INT (ANDDUAL "101") 
1060 IP U <T1 THEN LET T*(N,C)»"1 
": GO TO UAL "1890" 

1870 IP U(TX THEN LET T*(N,C)»"X 
: GO TO UAL "1890" 

1060 LET T*(N,C)="2" 

1890 NEXT N. RETURN 

2010 GO SUB UAL "200". INPUT "13 
RIGTIGE:",R# 

2020 IP LEN RBOUAL "13" THEN GO 
TO UAL "2010" 

2030 GO SUB UAL "2500". POR F-UA 
L "1" TO UAL "10": LET K-UAL "0" 

: POR N-UAL "1" TO UAL "13". IP 
R* (N) =T* (P ,N.< THEN LET K=K*UAL " 
1" 

2040 NEXT N 

2050 PRINT AT N +UAL "4",F*UAL "3 

2055 IP »>«UAL "10" AND K<UAL "1 
3" THEN PRINT AT UAL "20",UAL "0 
";"PREMIE I RAEKKE ";P," EN "IK 

2056 IP K*UBL "13" THEN PRINT AT 
UAL "21",UAL "0"; PLASH UAL "1" 

, "PREMIE I RAEKKE ";.F; " EN ",K 
2060 NEXT F. LET R*="": GO TO UA 
L "9540" 

8502 GO SUB UAL "200" 

2505 FOR N=UAL "15" TO UAL "255" 
STEP UAL "24". PLOT N.UAL "32": 
DRBU UAL "0” , UAL ••lla , • 

2507 NEXT N DRAIJ UAL "-240", UAL 
" 0 " 

2510 PLOT UAL "15",UAL "32": DRA 
Ul UAL "240", UAL ”0": FOR N =UBL “ 
64" TO UAL ”144" STEP UAL "24": 
PLOT UAL " IS '■ , N: DRAIJ UAL "240", 
UAL ”0" 


1570 LET .X-UJ-WAL "10". 
L ”8570": IP H3 < > UAL ■ 
ET HH=(H2.>H3) 


GO SUB UA 
32" THEN L 


2514 NEXT N 

2520 OVER UAL "1": FOR F=UAL 1 


I** 4 
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TO UAL. "IB": PAINT AT UAL "4",V 
AL "3"*P;P.- POP N-UAL "l" TD I-'Al 


«- wr- ,r-. rtvr 

■•13". PAINT OUCR UAL "1";AT N+U 
AL "4.",UAL "l”. MP-VVM. "l f M*UAL 
"3" + (UAL "l” AND TJ(F,N) = " 1" ) + t U 
AL "2" AND T* (F,N) = "X' 1 ) + (UAL "3" 
AND T*IF,N) = "2") ) ; T*(F,N) : NEXT 
N: NEXT ,P: OUER UAL "0'‘ 


2530 GO fO UAL "9540": 

3005 GO SUB UAL "200" 

3010 INPUT "HJEMMEHOLD:M*: IP 

."$ = •" THEN PRINT 01; AT UAL "1",U 
AL ■■■?"■, "LISTERNE SORTERES.": GO 
TO URL "5500" 

3015 GO SUB URL ”7000": IF FEUL - 
URL "1" THEN LET FEUL-UAL "0": G 
O TO URL "3010" 

3020 INPUT ( "ANTAL ORAL ",fi} <F ,..N 
, TO URL "10")J":")JM: LET H =N 
3025 PRINT fi*(F,H, TO URL "10"); 


3030 INPUT "UDE HOLD:";H* 

3035 GO SUB UAL "7000": IF FEUL « 
UAL "1" THEN LET FEUL-UAL "0": G 
O TO UAL "3030" 

3040 INPUT i "ANTAL MARL ".A*|F.N 
-TO UAL "10") Ml L^T Ll-N 

3045 PRINT A*(F,U, TO UAL "10"); 
HI 


3050 PRINT SI;AT URL "1",URL "lO 
>"OK.(N/ENTER)": IF INKEY*="N" 
THEN GO TO UAL "3010" 

3055 PAUSE URL "1". IF CODE INKS 


YfoUflL "13" THEN GO TO URL "305 


3060 LET A*(F,H,U*UAL "26")-CHR* 
m M: LET A*(F,U,H+UAL "JB">-CHR* 

3070 PRINT . GO TO URL "3010" 
4020 CLS : INPUT "DIUISION.:F: 

PRINT 'TAB URL "12";F;". DIU." 
4025 IF P>UAL "3" OR F<UAL "1" T 
HEN GO TO UAL "4020" 

4030 PRINT '" KLUD K. 

4 SC.- P."'': DRRU URL "15!", 
URL "0": DRRU URL "0",UAL "175": 
DRRU URL " -265" ^ URL f- 0" : DRRU U 


AL "0",UAlL " -176 


— , i '—l —j /d ; PLOT UAL "0", 

URL "iSc": ORRU URL "255",UAL "0 
•: PLOT UAL "0".UAL "130"; DRAW 
UAL 255 ,UAL "0": PLOT URL "132 
TRAW < ~ 


I— COO , VHL « 

K»RL "139". DRP 


1*9": 


PLOT URL "155",URL 


URL ”0",UAL "- 


DRRU URL "0",URL "-1&9": PLOT UR 
L "107",URL "130"; DRRU URL "0", 
URL " —130": PLOT UAL "220",UAL '* 
130": DRAU URL "0",URL "-lS«" 
4040 FOR Z-UAL "1" TO UAL "16" 

4044 LET N-CODE C»(F,Z,URL "4">: 
GO SUB UAL "8500" 

4045 PRINT AT Z+UflL "4",URL "1"; 


130" 


A*(F,N, TO URL "10");AT ZtUftL "i 
".URL "19"-LEN STR* K;K;AT Z*URL 
"4",URL "23"-LEN STR* Mi Mi RT Z + 
UAL "4",UAL "27"—LEN STR* H1;H1; 
AT Z4UAL "4",UAL "31"-LEW 3TR* P 
; P 

4050 NEXT Z 

4060 GO SUB UAL "9550" 

4070 RETURN 

5010 SRUE "T-S5" LINE 100: CLS 


PRINT RT 11,2;" SPOL TILBAGE F 
OR UERIFY UERIFY "": RETURN 


S501 FOR F-URL "1" TO URL "3": F 
OR N-UAL "1" TO URL "15". GO SUB 
URL "0500". LET C*(F,N,UAL "1") 
-CHR* P: LET C*(F.N,URL "2")-CHR 

S CM4URL "100"-Ml): LET C*(F,N,U 
L "4")-CHR* N: LET C*(F,N,UAL ” 
3")-CHR* (UAL "17 "—CODE C*(F,N,V 
AL "4") .1 : NEXT N: NEXT F 
5510 FOR F-UAL "1" TO UAL "3": F 
OR N-UAL ”1" TO URL "16" 

5520 FOR Z.N TO URL "10" 

5530 IF C*(F,N, TO UAL "3")<C*(P 

''■1670" Uf,L ™ EN 00 SUB 

5540 NEXT Z. NEXT N. NEXT F 
5560 RETURN 

5570 LET B*-C*(F,Z): LET C*\F,Z> 
-C*(F,N): LET C*(F,N)=B*. RETURN 


6000 GO SUB URL "200" •• OPEN US," 

6001 INPUT "NAUN:(ENTER-MENV.Jj" 
;H*. IF H* = "" THEN GO TO URL "'25 
40" 

6003 GO SUB URL "7000": IF FEUL 
THEN LET FEUL-URL "0": GO TO UAL 
•'©001'* 

6001 OO SUD URL "050®"' nnXMT T*» 


O U*L *1DIUISION." (F.N 

'.IS *::<iss K2, L "it- 


-LEN STR* M; Mi u i TAB URL "20 1 
-LEN STR* Ml;Ml;" POINT- ;TAB 


"1" TO URL "3": FOR N-UAL "I" T 
O UAL "16" 

7020 IF H»—A* (F ,W, TO LEN H*.' TH 
EN RETURN 

7030 NEXT N: NEXT F 
7040 GO TO UAL "0500" 

7500 INPUT "PRINTER. IJ/N) 

IF H*-"J" TMEN OPEN SUAL "s’,*P" 
7510 FOA F-UAL ”1" TO UAL "S' 1 : G 
O SUB UAL "7550": LET K-UAL "0": 

FOR N-URL "I" TO UAL "16" 

7520 FOR X-URL ”27" TO URL "42”: 

IF R*(F,N,X) <>■• " THEN GO SUB U 
RL "8570":^GO SUB URL "6040": LE 

7525 K iF l=, H*<t"U" AND K-URL "20" T 
HEN GO SuS URL "9540": GO SUB UR 
L "7550" 

7530 NEXT X. NEXT N: IF H*<>"U" 
THEN GO SUB URL "9S4-0" 

^M^hSn “r-wie- 

;SSi Sr^"U" 7-HEN LPRINT 
7560 LET X-URL "0": C-LS : PRINT 
; TAB UAL 10 ; F; OIUOSION. 

6S0B B LET M-UAL "0": LET MI-UAL ~ 
0": LET P-UAL "0" 


8510 LETK-UAL "B" for X-UAL ^1 
1" TO UAL 42”: IF R*lF 1 ..N,X) <> 
THEN GO SUS URL 6560 : LET X- 


URL "30 ';P'' 

6009 FOR X-URL "42" TO URL "11" 

6010 IF A*(F,N,X )<>" " THEN GO S 
UB URL "6570": GO SUB UAL "6040" 
6020 NEXT X. PAINT . GO TO UAL " 
6001” 

6040 IF X > —UAL "27” THEN PRINT i 
A*(F.N, TO URL "10");" ";A*(F,X- 
UAL " 10 "-URL "16"*(X>=UAL "27"), 
TO URL "10") ; “ ••; M2; M3: RET 

6050 IF XiUAL "27" THEN PRINT R* 
(F,X-URL "10", TO URL "10");" "i 
R*(F,N, TO URL "10") ; " ";M3; 

M2: RETURN 

7005 IF 6*=”7" TMEN GO TO URL "7 
500" 

7010 LET FEUL-UAL "0": FOR F —UAL 


THEN_GO SUB URL 

THEN GO TO U 
0500®l"fx<URL "27" THEN GO TO UA 
S590 7 LET H3 iCODE R*IF,X-UAL "26" 

6s92 B GO TO UAL "6701" 

3700 LET M3-CODE A*(F,X-UAL 10' 
,N*UAL "26”) 

3701 LET M2-CODE A*tF,N,X> 

3702 IF M2>M3 THEN LET P=P*UAL " 

§703 IF H2-M3 THEN LET P=P*-URL " 

3704 LET H=H*H2. LET HI-HIfM) 
8710 RETURN 

5020 DATA "INDPUT TIP5KRMPE.","K 
ONTROL AF TIPSXUPONINDPUT AE 
SULTATER.","UDSKRIU STILLING."," 
SAUE PROGRAH. " , "SE RESULTATEP. .. 
"SE ALLE KAMPE" 

3510 LET FEUL-UAL "1": PRINT SI; 
RT UAL "1",0;"NAUN FINDES IKKE." 
'-“=•1- "100": RETURN 
IF R* (.■■"" THEN RETURN 
9550 PAINT »1;AT UAL "1",UAL "0" 
'FNTER K-COPY " PAUSE I. 

u? R V 5E cgpv IF ZgSS£-VT THEN 

9560 RETURN 















Adventure 


■ En al de ting der gar livet 
svcBrt ior danske adventure- 
treaks er, at spillene oftest er 
pd engelsk, og sd er det svcert 
at gcette sig til. hvilke ord 
man skal bmge. 

Falgende lille program kan 
klare skcerene. Man indtaster 
navnet pd den maskinkode- 
lil, som man vil undersage. 
Den lceses herelter ind. (Veer 


i avrigt opmeerksom pd, at 
der ofte er en BASIC-loader 
toran selve spillet pd bdnde- 
ne. den md man spole hen 
over). Programmet finder sd 
de steder i spillet. hvor der stdr 
noget i klartekst og udskriver 
det. Noget al det. man fdr ud- 
skrevet. er det rene volapyk. 
men pd et tidspunkt kommer 
ordlistenID 

Lars Christensen 


1 0 
20 
30 
40 
S0 
60 
70 
«0 
90 
100 



ADVENTURE SPY by LCSoft, 1 Q 85 
INPUT " Indtast filnavn = ", n.?vn$ 

OPEHOUT " du.wmy " = MEMORY &4FF = CL OSEOUT 
LOAD n* vn$ • &500 

pr=J!/R00 

Pr=pr+1 = IF PEEK<PC><65 OR PEEK<pr»l23 THEN 60 
PC*PC+1 : IF PEEKYPC><65 OP REEKY pr»123 THEN 60 
PRINT CHR*<PFFKYPc-1>),-CHR*-:'PEEKYPr)V; 

Pr=Pr+l : IF PFFKY Pc ><65 OR PEEK* p c » 123 THEN PRINT" 
PRINT CHR*<PEEK< Pc >);> GOTO 90 


:GOTO 60 


IamstradI 


10 REM ANDENGRADSPOlYNOMIUMS PROGRAM AF i_ARS SORENSEN 
£0 CLS 

30 LOCATE £,£3 : PRINT "AnDEnGRADSPU-YnuMIUMS PROGRAM” 


40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT : 
60 PRINT : 
ClS 
.OCATE 


+ Bx + C" 


: PRINT "Programmet Drucer formlen f(x) - Ax'£ 

PRINT "v’serdierne A. B og C skal matastes, ": 

'derefter udrenrier orogrammet : " 

: PRINT "toDDunktet <X0, YO), diskriminanten D og reoderne. 
: PRINT : INPUT “last <RETURN> for at fortsette", 


A* 


90 

100 


2,23 


PRINT "AND£NGRADSPGi_YnOmIUMS PROGRAM" 


PRINT 


110 

l£0 

130 

140 

150 

160 

170 

iao 
190 
£00 
£10 
220 
£30 
£40 
£50 
260 
£70 
£60 
£90 
300 
310 


INPUT "Indtast A 
IF A=0 THEN BEEP 
INPUT "Indtast B 
INPUT "Indtast C 
REM 

PRINT : PRINT 
D=B"'-£--4*A*C 
XO—B/ <£*A> 

Y0=—0/(4*A) 

PRINT 
PRINT 
PRINT 
PRINT 
IF D <0 
IF D> O 


A 

GO' 

S 

C 


O 90 


2. grad 



D = " D 
XO = " XO 
YO =" YO 
PRINT 

THEN PRINT 
THEN £90 


■ Dette program til kompa- Programmet anvender sig af 
tible PC'ere kan udregne an- den scedvanlige formel f (x) 
dengradsligninger hurtigere = Ax2+Bx+C. 
end temperaturen stiger 1 [Xi indtaster veerdieme lor A. 
grad, ndr du sveder over di- b og C. og lynhurtigt fdr du 
ne skoleopgaver. veerdieme lor diskriminan- 


ten. toppunktet og raddeme. 
Programmet er skrevet helt i 
BASIC og tager kun et ajeblik 
at indtaste.D 

Lars Serensen 


"Po 1 ynoniiet nar incen redder" 


GOTO 330 


X=—B / <£*A> 

PRINT "Polynomiet 
GOTO 330 
X1=(-B+SQR(D)) / 
X£=(-B-SQR(D)> / 
PRINT "Polynomiet 


nar roden " X 

(£*A) 

(£*A) 

nar reddeme: 


XI 


320 PRINT "og " X£ 

330 PRINT : PRINT 

340 PRINT "Preve ioen (j/ri) " 

350 A* = INKEY* 

360 IF A*="" THEN 350 

370 IF A*="j" OR AS="J" THEN 90 
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■ For dem med benzin i blo- 
det og en fartdjcevel i krop- 
pen er Roadrace det helt rig- 
tige spil. Undgd at 16 cyklister 
p6 koleren. og lad vcere med 
at smadre bilen ind i bolvcer- 
ket. Hvis bilen eksploderer. 
oplyser computeren lceng- 
den at den tilbagelagte 
strcekning i forhold til tiden. 
Styringen loregdr ved hjcelp 
ai joystick. SpiUet er lavet til 
en standard VIC-20. ■ 

Kim Berg Hansen 



























































































































ShoofEM 



0 POKE 33,233 POKE 36,47'V-33248 
FOR 1*12344 TO 12331:PQKE 1,0 
iNEXT•POKE V+32,0 

1 POKE V+33-8F0R 1-12280 TO 12319 

; READ 8 : POKE 1,8 NEXT 
POKE 54296,15 

2 POKE V+24,28:POKE V+22, 

PEEKCV+22)OR 16 : PRINT"CCLR)" 

FOR >12332 TO 12991 RERD 8 
; POKE 1,8 

3 NEXT ; POKE V+J7,10:POKE V+38,5 
3 DIN At(24)'R-0'POKE 34278,0 

POKE 34292,0 

10 FOR >0 TO 24• RE8D RtUXNEXDLI- 

KB=197 : SC«0 

15 POKE V+16,0 : POKE V,150 
POKE V+l,120:POKE V+39,6 
POKE V+28,13 ; POKE 2040,193: D>0 
20 POKE V+40,2 
30 OOSUB 1080 SH-0 

33 K-PEEKCKB) R-PEIKCV)+CK-10)8S-CK- 
10)88 '• B-PEEKCV+16)RND 1 

36 IF K-10 THEN D>1 

37 IF K=18 THEN DI=0 
58 POKE 2040,193+DI 

60 IF A<0 AND B THEN B-0:8-252 
63 IF A>235 AND B-0 THEN 8-DR-0 

67 IF B 8ND R>60 THEN POKE V+16, 
PEEKCV+16)RND 234:POKE V-20R-R+1 
; OOTO 30 

68 IF B-0 RND H<20 THEN POKE V+16, 
PEEK<V+16)0R 1 •'POKE V,60:R-R-1 

GOTO 50 

70 POKE V,A POKE V+16, PEEKC V+16) OR B 
IF B-0 THEN POKE V+16, 
PEEK<V+16)AND 234 
73 8-PEEKCV+l)+CK-9)88~(K-23)88 

77 IF R<32 THEN POKE V+1,220 R-R+3 

OOTO 30 

78 IF R>220 THEN POKE V+l-32:R-R-3 

GOTO 30 

00 POKE V+l,R:IF PEEK(V+31>AND 1 THE 
N 2000 

85 IF PEEKCV+30)AND 1 THEN 93 
90 OOTO 150 

95 IF PEEKCV+30)>128 THEN 113 
100 IF PEEK!V+30)8ND 8 THEN 2800 
110 IF PEEKCV+30)RND 4 THEN 2000 

112 OOTO 130 

113 SC-SC+INT(RND(1)85+1)830 

123 POKE V+21, PEEK (V+21) AND 127 T—1 

150 IF KOI3 THEN 200 

151 POKE 54276,0 POKE 34277,204 
POKE 34273,137 POKE 34272,43 
POKE 34276-33 

132 POKE 34290,0 POKE 34291,136 
POKE 34287,69 POKE V+16, 

PEEK(V+16)AND 233 

133 POKE 34286,149 DS-8SH-1 
:X=PEEK<V)+24 IF PEEK<V+16)8ND 1 
THEN X-X+256 

154 POKE 54290,17: IF D i THEN DS—8 
: X-X-48 

133 B-0 IF X>236 THEN B-2X-X-236 
160 POKE V+2,X:POKE V+3,PEEKCV+l) 

:POKE V+16,PEEKCV+16)0R B 
: POKE 2041,193+DI 
162 POKE V+21, PEEKC V+2 DOR 2 
170 8-PEEKCV+2)+DS ; B-PEEKCV+16)AND 2 
IF A<0 AND B THEN A-248B-0 
175 IF A>255 AND B-0 THEN B-2A-0 
180 POKE V+2,A POKE V+16, 

PEEKCV+16)0R B IF B-0 THEN POKE V 
♦16,PEEKCV+16)RND 253 
183 IF PEEKCV+31)RND 2 THEN POKE V+2 
1,PEEKCV+21)RND 233:G0T0 199 
190 IFCRC20 AND B=0)OR(R>60 AND B)TH 


■ Programmet tegner en la- 
byrint i pcen grafik. Din opga- 
ve er at gd rundt og tinde ior- 
skellige ting, samt at undgd 
uhyrer - eller skyde dem. 
Selvom programmet er me- 
get langt kan det virkelig be- 
tale sig at taste det ind. Det er 
nemlig helt pd hojde med 
•Gateway to APshai*. dog ik- 
ke helt sd hurtigt, og heller ik- 
ke med sd mange skcerme. 
Programmet er selvlorklaren- 
de og benytter ikke joystick. □ 
Christian Hansen 


EN POKE V+21,PEEKCV+21)AND 253 
GOTO 200 

191 U-PEEKCV+30) : IFCU AND 128)THEN I 
FCU AND 2)THEN 198 

192 IF U AND 2 THEN 194 

193 GOTO 198 

194 IFCU AND 4)RND Ml<5 THEN POKE V+ 
21,PEEKCV+21)8ND 233 SH-0 

SC-SC+M1810 : (11=5 : GOTO 199 

195 IFCU RND 8)RND M2C5 THEN POKE V+ 
21,PEEKCV+21)AND 253 SH-0 

: SC-SC+M2* 10: (12=5: GOTO 199 

198 GOTO 170 

199 POKE 54276,0 POKE 54277,72 
POKE 54273,4 POKE 54272-73 
POKE 54276,129 

200 IF (11-0 THEN 300 

205 X-PEEK C V+4):V-PEEK C V+5) 

IF PEEKCV+16)AND 4 THEN X-X+256 
210 VX-PEEK <V) :VV-PEEKCV+1) 

IF PEEKCV+16)AND 1 THEN VX-VX+256 
212 IF Hl>4 THEN 275 
215 IF 111-4 THEN 250 
220 IF Pll-3 RND RNDC1)>.3 THEN 250 
225 X1-X+CX>YX)8S1-CX<YX)8S1 
V1-V+CV>VV)*S1-CV<VV)8S1 
227 IF XI>255 THEN Xl-Xl-256 

POKE V+16,PEEKCV+1610R 4 GOTO 235 
230 POKE V+16,PEEKCV+16)RND 251 
235 POKE V+4,XI POKE V+5-VI 
247 OOTO 300 

230 X1-X+INTCRNDCD83-1 )8S1 
: Vl-V+INTCRNDC1 )83-l )8S1 
251 IF Xl<20 OR Xl>320 OR Vl<52 OR V 
1>220 THEN X1-XV1-V 
255 POKE V+16,PEEKCV+16)8ND 251 
IF XI>253 THEN Xl-Xl-256 
POKE V+16,PEEKCV+l6)0R 4 
260 POKE V+4,XI POKE V+5-VI 
270 GOTO 300 
273 IF 111-10 THEN 290 
280 POKE V+41,1:POKE V+28, 

PEEKCV+28)RND 231 Ml-Ml+l:OOTO 300 
290 POKE V+28-PEEKC V+28) OR 4 111-0 
POKE V+21,PEEKCV+21)RND 251 
300 IF (12=0 THEN 400 
305 X-PEEK C V+6) Y-PEEK C V+7 > 

IF PEEKCV+16)AND 8 THEN X-X+236 
310 VX-PEEK C V) VV-PEEK C V+1> 

IF PEEKCV+16)RND 1 THEN VX-VX+236 

312 IF (12>4 THEN 375 

313 IF (12-4 THEN 330 

320 IF H2»3 AND RNDC1)>.3 THEN 350 
323 X1-X+ C X>VX ) 8S2- C X<VX) 8S2 
:V1=V+CV>VV)*S2-CV<VV)*S2 
327 IF XI>255 THEN Xl-Xl-256 

POKE V+16, PEEKCV+16)0R 8 GOTO 335 
330 POKE V+16,PEEKCV+l6)RND 247 
333 POKE V+6-XI POKE V+7,VI 
347 GOTO 400 

350 Xl-X+INTCRNDC1)83-1)8S2 
:Vl-V+INT CRNDC1)83-l)8S2 

351 IF Xl<20 OR Xl>320 OR Vl<52 OR V 
1>220 THEN X1=X : Vl-V 

355 POKE V+16,PEEKCV+16)AND 247 



IF XI>255 THEN Xl-Xl-256 
POKE V+16,PEEKCV+l6)OR 8 
360 POKE V+6,XI POKE V+7,VI 
370 GOTO 400 
375 IF (12-10 THEN 390 
380 POKE V+42,1 POKE V+28, 

PEEKC V+28) AND 247 : (12-M2+1 : GOTO 400 
390 POKE V+28, PEEKC V+28) OR 8 (12=0 
POKE V+21-PEEKCV+21)AND 247 
400 GOTO 55 

1000 R$=A$CR):B8="0000" : PRINT"CCLR)" 
POKE V+35,8+INTCR/5) : POKE V+21,0 
: FOR 1=1 TO 20 

1005 IF LENCA*)>=4 THEN B8-LEFT8CA8, 
4):A8-RIGHT*Cflt,LENCR$)-4) 

1010 PRINT" CHO(1E)",TABC CI-D82), 

:D=VfiL(LEFT$(B$-2)) 
U=VALCRIGHT*(B*,2)> 

1015 IF D-0 THEN 1025 
1020 FOR J*1 TO D:PRINT"0ACCRSR NED, 
CRSR VENSTRE2)";:NEXT 
1025 PRINT"CHOME,CR§R NED23)"J 
THBCCI-l)82)i 

1030 IF U>0 THEN FOR J=1 TO U 

: PRINT"BRCCRSR OP,CRSR VENSTRE2)' 1 ; 
NEXT 

1035 NEXT I T—1IF RND(1X.6 THEN 1 
065 

1037 T-0:POKE V+14,100+RNDC1)8150 
1040 POKE V+15,100+RNDC1)830 
POKE V+16,PEEKCV+16)HND 127 
POKE V+46,2 

1045 POKE V+29,PEEKCV+29)0R 128 
POKE 2047-197 IF KE THEN 1055 
1053 POKE V+21,128:1-PEEKCV+3D+PEEK 
C V+31)+PEEK C V+31) 

1060 IF PEEKCV+3DAHD 1?8 THEN T—1 
POKE V+?l,0 

1065 POKE V+21, PEEKC V+2 DOR 1 
I-PEEKCV+31):I-PEEKCV+30) 

1070 111-0 M?40 IF RNDC1X.3 THEN 1110 
1072 POKE V+4-RNDC1)8236+20 
POKE V+5-RNDC1)8168+52 
1075 Ml-INTCRNDC1)84+1) 

POKE 2042,198+MDROKE V+41,6 SI =2 
1080 IF (11=2 THEN POKE V+41-11S1-6 
1083 IF 111-3 THEN PpKE V+41,9:S1=4 
1090 IF dl-4 THEN POKE V+41-14S1-4 
1100 POKE V+21,PEEKCV+2D0R 4 
:I-PEEKCV+31) 

1110 IF RNDC1X.3 THEN 1150 
1112 POKE V+6-RNDC1)8236+20 
:POKE V+7,RND C1)8168+52 
1115 M2-INTCRNDC1)84+1) 

POKE 2043,198+M2:POKE V+42-6S2-2 
1120 IF (12-2 THEN POKE V+42,1DS2=6 
1125 IF (12-3 THEN POKE V+42-9:S2=4 
1130 IF (12=4 THEN POKE V+42,14:S2=4 
1133 POKE V+21, PEEKC V+2 DOR 8 
:I=PEEKCV+31) 

1150 PRINT"CHOME,CRSR NED24)"; 

FOR 1=1 TO LI : PRINT"CHVID)B "; 

: NEXT 

1155 POKE V+28,15 
1200 RETURN 
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2000 POKE V+2S,PEEK < V+28)AND 254 
; POKE 54276,0 POKE 54277,143 

POKE 54273,34 

2001 POKE 54272,75 POKE 54276,129 

:POKE V+39,1 FOR 1=1 TO 2000:NEXT 

2004 POKE V,150 POKE V*1,120 

2005 POKE V+28,PEEK(V+28)0R 1 

POKE V+39,6 : POKE V+21,0 LI=LI-1 
: R=0 : IF LI>0 THEN 50 
2010 POKE V+24,20:PRINT"<CLR, 

GR0N)HHRD LINES, VOU WERE KILLED" 
2012 PRINT"(CRSR NED3, 

GUDYOU SCORED "SC 
2015 PRINT"<CRSR NED2, 

LILLR)RNOTHER GAME ?" 

2017 POKE 54273,0:POKE 54272,0 
:POKE 54287,0:POKE 54286,0 
2020 GET fi$ ; IF fl*="Y”THEN SC=0:LI=3 
:POKE V+24,28:GOTO j 3 
2025 IF R*<>"N"THEN 2020 
2030 END 

10000 DRTR 255-234,234,234,234,234, 
234,255,255,171,171,171,171,171, 
171,255 

10005 DRTR 24,24,255,24,60,108,108, 
108,0,6,249,70,0,0,0,0 
11000 DRTR 0,0,0,0,21,0,0,21,0,0,4,0, 
0,170,0,2,170,138,2,42,164,2,42,0, 
2,42,0 

11005 DRTR 2-42-0,1-42,0,0,63,0-0,63, 
0-0,51,0,0,51,0,0,243,0,0,195,192, 
0,192,192 

11010 DRTR 0,192,192,0,240,240,0,0,0, 
99 

11015 DRTR 0,0,0,0,84,0,0,84,0,0,16, 
0,0,170,0,162,170,128,26,168,128, 
0,168,128 

11020 DRTR 0,163,128,0,168,128,0,163, 
64-0,252,0,0,252,0,0,204,0,0,204, 
0,0,207,0 

11025 DRTR 3,195,0,3,3,0,3,3,0,15,15, 
0,0,0,0,99 

11030 DRTR 0,0,0,0,0,0,3,0,0,0,32,0, 
12,168,0,194,168,0,12,168,0,0,32, 
0,3,0,0,0,0 

11035 DRTR 0,0,0,0,0,0,0-,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0-0- 
0 , 0 , 0,0 

11040 DRTR 99,0,0,0,0,0,0,0,0,192,0, 
8,0,0,42,48,0,42,131,0,42,48,0,8, 
0,0,0,192 . 

11045 DRTR 0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0,0 

11050 DRTR 0,0,99,0,56,0,0,126,0,1, 
231-128,3,1,192-6,0,224,0,0,224,0, 
0,224 

11055 DRTR 0,1,192,0,3,128,0,7,0,0, 
14,0,0,28,0,0,56,0,0,48,0,0,48,0, 
0,48,0,0,0,0 

11060 DRTR 0,0,0,0,48,0,0,120,0,0,43, 
0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
48,0,0,206 

11065 DRTR 0-3,3,15-252,3,3,3,3,3,0, 
206,0,0,48,0,0,0,0,0,0,0,0,0,0,0, 


0 , 0 , 0 , 0,0 

11070 DRTR 0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,99 

11075 DRTR 0,0,0,0,0,0,0,0,192,0,3, 
48,0,12,0,12,12,0,48,42,0,12,170, 
128 

11080 DRTR 3,153,176,0,170,140,0,42, 
3,0,12,12,0,12-0,3,48,0,0/192,0,0, 

07070S0S0 

11085 DRTfl'0,0,0,0,0,0,0,0,0,0,0,0, 
99,0,8,0,0,42,0,0,38,0,0,42,0,0,8, 
0,2,170,160 

11090 DRTR 2,46,32,2,46,32,3,42,48,2, 
21,32,2,42,32,0,42,0,0,34,0,0,128, 
128 

11095 DRTR 0,192,192,0,128,128,0,128, 
128-0,34,0,0,34,0,0,162,128,2,162, 
160,99 

11100 DRTR 0,0,0,0,9,92,0,46,0,0,191, 
128,2,110,96,194,89,96,73,89,88, 
73,89,88 

11105 PfiTfl 110,170,174,9,89,89,2,89, 
89,2,89,97,0,174,99,0,191,128,0, 

46,0 

11110 DRTfl 0,8,0,3,84,0,0,0,0,0,0,0, 
0,0,0,0,0,0,99 

11115 DRTR 0,0,0,0,0,0,0,0,0,0,0,16, 
0,0,16,0,0,64,0,1,2,0,4,8-0,1,8,0, 
4,2 

11120 DRTfl 40,16,130,130,154,34,128, 
112,8,1,48,0,4,60,0,16,15,192,64, 
0,192 

11125 DRTfl 16,0,252,4,0,0,16,0,0,64, 
0,0,99 

12000 DRTfl 2400240005040504050403040 
304000400040004000400041009 
12005 DRTR 1009100910090504050405040 
504051500040004000400041009001900 
1400141009 
12010 DRTR 1009 

12015 DRTfl 1009100910091009100910091 
0091009000900090009000900090024 
12020 DRTR 0024002400240504050405040 
504050400090009000900090009050405 
0405040024 

12025 DRTR 2400240010091009100910091 
009100010001000100010001009 
12030 DRTR 1009100910091009100910091 
009100900000000000000000024 
12035 DRTR 2400240005040504050405040 
504050400040004000400040504050410 
09 

12040 DRTR 1009100910091009100910091 
009100910001000100010001009 
12045 DRTR 1009100905040504050405040 
504050400000000000000000302030203 
0203020024 

12050 DRTR 2400240024002400240024002 
400240000090009000900091009 
12055 DRTR 1009100910091009100910091 
009100910001000100010000024 
12060 DRTR 2400240003020302030203020 
302030200000000000000000302030203 
021009 

12065 DRTR 1009100910091009100410041 


004100400040004000400041004100410 
0410041009 

12070 DRTR 1009100910091009100910091 
009100900000000000000000024 
12075 DRTR 2400240024002400050405040 
504050400000000000000000504050405 
0405040024 

12080 DRTR 2400240024002400240024002 
400240000090009000900091009 
12085 DRTR 1009100910091009100910091 
009100910001000100010000024 
12090 DRTR 2400240003020302030203020 
302030200000000000000000302030203 
0203021009 

12095 DRTR 1009100910091009100910091 
009100900000000000000000024 
12100 DRTR 2400240005040504050405040 
504050405000500050005000504050405 
0405041009 

12105 DRTR 1009100910091009100910091 
009100910001000100010001009 
12110 DRTR 1009100910091009050405040 
5040504050405040504050405040024 
12115 DRTfl 2400240024002400240024002 
400240010001000100010001009 
12120 DRTR 1009030203020302030203021 
502030203000300030003000302030203 
0203020024 

62000 T=PEEK < 62)*256+PEEK < 61)+1 

62010 INPUT"TO PRINTER < Y , 

N OR DELETE > ";Qt 

:IF Q*="DELETE"THEN 62200 

62011 IF Q*<>"Y"THEN 62020 
62015 CLOSE 4,40PEN 4-4CMD 4 

PRINT CHRf<1);CHR$(12S0 
62020 PRINT CHR*(147);"CHECK SUM 
:LINK=PEEK(44)*256+PEEK < 43) 

: E=61999 

62100 REM * MAIN LOOP * 

62120 T=LINK 

62121 LET XX=TI 

62130 LINK=PEEK<T+1)*256+PEEK<T) 

62135 LN=PEEK < T+3 > #256+PEEK < T+2) 

62136 IF LN>E THEN PRINT 

PRINT"TOTRL=";CH:CLOSE 4,4 END 

62137 S*=STR* < LN >:L=LEN(S*)-1 
S$=MID*(S*,2,L> 


62138 PRINT SPC<6-L);SJ; 

62140 CS=0 : N=0 : C=0 
62150 FOR P=T+4 TO LINK-2 :PK=PEEK<P> 
62160 IF PK=143 THEN P=LINK-2 
GOTO 62190 

62165 IF PK=34 THEN C=<C=0> 

62170 IF C=0 RND PK=32 THEN 62190 
62180 IF PK=137 THEN N=N+1 
:CS=CS+(203 OR N>:PK=164 
62185 N=N+1 CS=CS+<PK OR N) 

62190 NEXT P :CH=CH+CS 

: print"=";right*<str*<:cs>- 

LEN(STR$(CS)>-1) 

62191 IF TKXX+240 THEN 62191 

62192 GOTO 62120 

62200 POKE T,0 : POKE T+1,0 
POKE 46,PEEK(46)-2:CLR 
62999 REM 
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Illlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 



■ Dette program kan ved 
hjcelp af de brugerdefinerba- 
re grafiktegn pd Spectrum- 
men, tegne Garfield med 
hans frcekke smil. Program- 
met definerer og skriver gra- 
fiktegnen tire gange. Ved 
indtastning af programmet 
skal teksten i linieme 
350-370,700-720, 1100-1120 

og 1450-1460 indtastes, mens 
computeren er i graphics mo 
de.D 

Peter Blume 


70 REM ********* ************* 


80 

RE"! 


100 

FOR 

: 1 

150 

DATA " 

a" 

160 

DATA " 

b' 

170 

DATA “ 

C " 

180 

DATA * 

d * 

190 

DATA ' 

'e‘ 

200 

DATA ' 

1 f' 

210 

DATA ' 

's' 

220 

DATA ' 

'h* 

230 

DATA ' 


260 

DATA ' 

* j 1 

250 

DATA 

•k' 

260 

DATA 1 

• , 

270 

DATA 1 

"m 

280 

DATA 

"n 

290 

DATA 

"o 

300 

DATA 

" o 

310 

DATA 

"a 

320 

DATA 

" r 

330 

DATA 

"s 

340 

DATA 

"t 

350 

PRINT 


360 

PRINT 


370 

PRINT 


630 

REM 



',0.0, O.O, 0,3. 7. 7 
0, 0. 0, 0, 240, 15, 192. 240 
', 1,2. 15, 15, 15. 15, 207,56 
*, 248, 7, 128, 192, 248, 238, 195, O 
", 0, 0. 224, 56, 12, 2, 129. 192 

* , o, 0. O. 0, 0, 0, O. 128 

", 3, 3,2,2, 1, 1.0,48 
", 238, 181.8. O. O. 15. 144, 96 
" , 8, 8. 200, 40, 17, 246, 24. 8 
», 0. 0. 0, 127, 12e. 0, 0, 0 
■',96. 16, 16. 136,120, 24,8,4 
",64,64,32,30,7,6,6,0 
",0, 0, 0.0. 192, 160. 16,24 
", 8, 117, 10,5, 245,5, 12. 16 
", 128, 128, 128,0.0,0, 128, 128 
", 8, 16, 16. 32. 32, 16. 16. 16 
", 0. 0, 0. 0, 0, 0. 0, 63 
", 4, 2, 2.2,3, 26, 226,4 
" , 0, 0. 0. 248. 4, 2. 2. 129 
", 8. 60. 62. 42, 3, 1.3, 7 
AT 5.lOf"jbcdef" 

AT 6. 10!“*hi jKlm“ 

AT 7.101"noparst" 


440 FOR m=l TO 18: GO SUB 1500 

"a". 16, 23, 52, 40. 56. 48, 4 e. 40 
',64. 127,32,24,7. 64,32. 16 
15.248, 108, 19.241,30,51,192 
•. 192. 192. 0. 129. 126, 0. 192, 63 
", 12.24.49, 194.4,24,224,0 
" , 65, 129, 1.2.28, 0.0,0 
",31.31. 11.7,31.2. 6. 124 
".36, 54, 17, 30. 14. 6, 2. 1 
" . 15. 32. 192.0. 0. 0. O. 178 
",0.0,0, 0,0. 7, 15,0 
•', 0, 0. 0, 0, 134, 154, 143. 252 
", 60.62.11.25. 19- 227. 3. 3 
" , 0. 0. 128- 192. 192. 192, 192, 224 
",225,61,7, 0,0. 0,1,1 
"o". 0, 12B, 192.64, 128, 128.0.0 
"p",3. 6. 8, 0.0, 0.0,0 
"a". 152. 14, 15, 15. 15, 24, 0. 0 
•r",0, 0. 0. 192. 192. 160. 16. 16 
AT 8,10!"abode**" 

AT 9, 10i "hi jK Im" 

AT 10,10!" no par" 


490 

DATA ■ 

a 

500 

DATA " 

b 

510 

DATA " 

1 r 

520 

DATA " 

d 

530 

DATA " 

> 

560 

DATA ' 

’ f 

550 

DATA ' 


560 

DATA ' 

'h 

570 

DATA ' 

* i 

580 

DATA ' 

1 j 

590 

DATA ' 

'K 

600 

DATA 

* 1 

610 

DATA ' 

’m 

620 

DATA 1 

"n 

630 

DATA 

"o 

640 

DATA 

" D 

650 

DATA 

"a 

660 

DATA 

" r 

700 

PRINT 


710 

PRINT 


720 

PRINT 



780 REM 


840 

DATA 

"a" 

, 1,2. 2, 4. 4, 4. 4. 8 

850 

DATA 

" b" 

,0, 0.0.0, 1,3, 6,9 

860 

DATA 

"c" 

.0, 0, 63, 223. 198,2, 128, 64 

370 

DATA 

"d" 

,0.0, 192,0, 1,0,0. 0 

880 

DATA 


. 56. 56, 120, 252. 140, 12, 4, 28 

S90 

DATA 

"f " 

,8, 8. 8,8,8, 8,8,8 

900 

DATA 

"g" 

,0,0, 0,0,0, 0,0,8 

910 

DATA 

h 

,0,0, 0,0. 0,0. 0,4 

920 

DATA 

n j •' 

1 ,9. 24, 28, 30, 56, 32, 32, 48 

330 

DATA 

" j 1 

'.0, 0, 0, 0, 0, 1,0, 0 

940 

DATA 

" k. 

',28,28, 124, 124,252,252,28,23 

950 

DATA 

•• , i 

',0,0, 0.0,0, 0,0, 248 

960 

DATA 

"m* 

',8. 8. 8. 8, 4, 12,20,34 

970 

DATA 

H n' 

',0,0, 0,0, 0, 0,0, 1 

980 

DATA 

"o' 

',4, 4, 4,4. 4, 4. 252, 0 

990 

DATA 

"o’ 

8, 8. 8,8, 8, 8, 4, 3 

1000 

DATA 

"a ’ 

'.56.62. 16, 16. 16,8,8,252 

1010 

DATA 

" r • 

'.0,0, 1,2. 2, 7, 14.28 

1020 

DATA 

"s’ 

'.9.8, 240, 0, 0. 192, 48, 16 

1030 

DATA 

M f 

', 140, 141,0, 0,0. 1,2,0 

1040 

DATA 

"u ' 

'.0, 0, 128, 128. 192, 192, 192. 64 

1100 

PRINT 

AT 11*10?" a bcde" 

1110 

PRINT 

AT 12. 10?" f ghi jk 1" 

1 120 

PRINT 

AT 13*10?" mnopa rstu" 

1 180 

REM 



1200 

FOR m 

= 1 

TO 15: GO SUB 1500 

1240 

DATA 

"a 

'., 70. 73, 72. 32. 32. 30. 1, 0 

1250 

DATA 

"b 

'• 2. 2. 132. 68. 37, 61. 194, 1 

1260 

DATA 

"c 

' .64. 68. 136. 136. 16. 8. 136, 76 

1270 

DATA 

"d 

'.2,4,8,9. 17. 18, 18,54 

1280 

DATA 


'.0. 0. 128. 4, 8. 16, 16, 16 

1290 

DATA 

"f 

'.31.56. 56. 62. 56, 62. 24, 14 

1300 

DATA 

"g 

.0.0, 7,3,0, 1.2,12 

1310 

DATA 

"h 

'.64.64. 192. 128, 128,0.0.0 

1320 

DATA 

" i 

'.51.0.0,0.0. 0.0. 0 

1330 

DATA 

" j 

,225.0,0,0,0,0.0,0 

1340 

DATA 

"k 

'. 16.252,3.0.0,0.0.0 

1350 

DATA 

" 1 

.33.223.0.0.0,0,0.0 

1360 

DATA 

"m 

.254, 1,0, 0,0,0, 0,0 

1370 

DATA 

"n 

.0.255,0.0,0.0.0.0 

1380 

DATA 

"o 

.48, 192,0.0.0, 0.0.0 

1450 

PRINT 

AT 14,10?" abcde f gh" 

1460 

PRINT 

AT 15*10?" iJklmno" 

1499 

STOP 



1500 

READ 

c* 


1510 

FOR n 

=0 

TO 7 

1520 

READ 

X 


1530 

POKE 

USR c**n ,k : NEXT n: NEXT m 









































































































PROGRAM= FLVSIM.773 


10 DIM MC*(28> : GOSUB 2700 
20 HI*=" '. I" HI = 10 
30 PRINT"(CLR,HVID)"CHR*(8>; 

•POKE 53265,11 : POKE 53280-0 
: POKE 53281,0:POKE 650,128 
40 PI=0:RO=0:LV=0:MH=0:TM=0:FU=0:CT=0 
: AM=0: WI =0 : TH=0: SP=0 : BR*= " " : FL*= " 11 
FP*1 

50 UC*="":EH=0:ED=0:HE=0:X=0 : 1=0 : A“0 
•K=0:ES=0:EN=0:CL=0 : FL=0:CN=0:AD*0 
RL=0CP»1 

60 cc =0 

70 FOR 1=54272 TO 54294 POKE 1,0:NEXT 
POKE 54295,3 POKE 54296,30 
80 POKE 53272,22:PRINT"(CRSR H0JREJ1 
ILOT I RAINER" 

90 PRINT"(HOME,CRSR NED, 

CRSR VENSTRE19) II-SCORE:"HI" "HI* 
100 PRINT"(CRSR NED3,GUL)">N THIS GAM 
E YOU'RE SUPPOSED TO" 

110 PRINT"(CRSR NED1FLV A JETFIGHTER 
OVER A MOUNTAIN" 

120 PRINT"(CRSR NED)RANGE, 

SHOOT DOWN AN ENEMY PLANE," 

130 PRI NT"(CRSR NED1FIND THE RUNWAY 
ON THE OTHER SIDE" 

140 PRINT"(CRSR NED)AND LAND ON IT.% 

F YOU END HERE. YOU'LL" 

150 PRINT"(CRSR NED)GET A (HVID)I-.V 
(GUL)BONUS, A (HVID)—/"L (GUL)BO 
NUS, ” 

160 PRINT"(CRSR NED)AND A (HVIDIL - ^ 
L (GUL)BONUS.%F YOU GET THE HIGH-" 
170 PRINT"(CRSR NED)SCORE, 

YOU'LL BE ABLE TO ENTER YOUR" 

180 PRINT"(CRSR NED)INITIALS." 

POKE 53265,27 FOR S=1 TO 500:NEXT 
190 GOSUB 370 POKE 53265,11 
200 PRINT"(CLR, HVID)“ONTROLS " 

210 PRINT"(CRSR NED,GR0N)—UNCTION 
(HVID) l(GR0N)-ONTROL" 

220 PRINT"(HVID)-1- 


780 IF A*<>" "THEN 840 
790 GOSUB 2620 
800 IF UC*<>"DOWN"THEN 830 
810 UC*="UP "GOSUB 1680:WI=WI-1 
IF AL=0 THEN A=lGOTO 2020 
820 GOTO 1210 

830 UC*="DOWN":GOSUB 1680WI=WI+1 
GOTO 1210 

840 IF JO 123 THEN 870 
850 IF RO>-90 THEN RO=RO-l 
860 GOTO 1210 
870 IF J0119 THEN 900 
880 IF ROC90 THEN RO=RO+l 
890 GOTO 1210 
900 IF JO 125 THEN 930 
910 IF PI<80 AND SP>200 THEN PI=PI + 1 
920 GOTO 1210 
930 IF JO 126 THEN 960 
940 IF PI>-80 THEN PI=PI-1 
950 GOTO 1210 
960 IF A$0"+"THEN 990 
970 IF THC100 AND FU>0 THEN TH=TH+2 
IF SP<1100 AND BR*="OFF"THEN SP= 
SP+5 

980 GOTO 1210 
990 IF ABO “-"THEN 1020 
1000 IF TH>0 THEN TH=TH~2 
IF SP>0 THEN SP=SP-5 
1010 GOTO 1210 
1020 IF A*<>"F"THEN 1060 
1030 GOSUB 2620 

1040 IF FL*="OFF"THEN FL*="ON " 
UI=WI+1 FP=2G0T0 1210 
1050 FL*="OFF" FP=1 WI=WI-1:GOTO 1210 
1060 IF ABOCfTHEN 1100 
1070 GOSUB 2620 

1030 IF BR*="ON "THEN BR*="OFF" 

GOTO 1210 

1090 BR*="ON "GOTO 1210 
1100 IF A*<>"R"THEN 1140 
1110 K*=ME*+"HEAD "+STR*(EH> 

IF ES=0 THEN K*=K*+" DIST 
: "+STR*(ED>+" HGHT: "+STRKEN) 

1120 GOSUB 1890 
1130 GOTO 1210 
1140 IF POO THEN 1190 
1150 IF AM=0 THEN K*=ME*+"OUT OF AMM 
UNITION ("GOSUB 1890:GOTO 1210 
1160 AM=AM-1 : GOSUB 1870 
1170 GOSUB 2520:IF CK=1 THEN K*=ME*+ 
"ENEMY PLANE HIT !!" GOSUB 2500 
: ES=1'GOTO 2550 

1180 PRINT ME*"GUNS MISS.AM; 

"ROUNDS LEFT" GOSUB 1820:QOTO 1210 
1190 IF AtO"(F2)"THEN 1210 
1200 A=9 : GOTO 2020 
1210 IF SP<0 THEN SP=0 
1220 IF SP>1100 THEN SP=1100 
1230 CN=CN*SP/1000*((30-LV)225) 
CT=INT(CN> GOSUB 1630 
IF TI/60/TM THEN A=2:G0T0 2020 
1240 POKE 54273,10+TH:POKE 54294, 


500 POKE 53265,11 PRINT"(CLR, 

HVID)I HE MOUNTAINS ARE(CYAN)")MH, 
"(HVID)FEET HIGH." 

510 PRINT"(CRSR NED) IOU HAVE(CYAN)"; 

TM;"(HVID)SECONDS TO COMPLETE." 
520 PRINT"(CRSR NED) IOUR TANKS ARE C 
ONTAINING(CYAN)“;FU, 
"(HVID)GAL.FUEL." 

530 PRINT"(CRSR NED) IOU HAVE(CYAN)“; 

AM; “(HVID)GUN ROUNDS." 

548 PRINT"(CRSR NED)OIND SPEED(CVAN) 
";WI;"(HVID,CRSR VENSTRE)." 

550 PRINT"(CRSR NED)*TARTING RUNWAY 
0-50" 

560 PRINT"(CRSR NED)“NDING RUNWAY 
: 700-750" 

570 PRINT"(CRSR NED2)-EMEMBER THIS, 
IT'S VERY IMPORTANT." 

580 PRINT“(GR0N)- 


230 PRINT"(GR0N)LEFT/-IGHT (HVID) l( 
GR0N)TI*K~' 2 LEFT/—IGHT" 

240 PRINT""TITCH UP/DN (HVID) KGR0N) - 
n*K— 2 ^/-OWN" 

250 PRINT"-ADAR • (HVID)l(GR0N)^ 
EV _" 

260 PRINT"IHRUST +/- (HVID)KORAN)' 
EYS +/-" 

270 PR I NT "-LAPS UP/DN (HVID) KGR0N)-' 
EV -" 

280 PRINT" -NDERC. UP/DN (HVID) KGR0N)'' 
EY 

290 PRINT"—IRE GUNS (HVID)KGR0H) ' 
ri*K—' 2 -IRE BUTTON" 

300 PRINT"IRAKES (HVID)KGR0N)- 

1 /— y“ 

310 PRINT"I AIL OUT (HVID) l(GR0N) y 
EV -2" 

320 PRINT”(HVID)- 1 - 


590 POKE 53265,27 FOR S=1 TO 500 NEXT 
GOSUB 370 

600 EN=INT(RND(0)*2000)+300 
610 EH=INT(RND<0)*360) 

620 ED=INT(RND(0)*50 > +100 
630 HEAD=270 ALT=0 LA=0 FL=0 RO=0 
SP=0:FL=FU 

640 REM HE=HEADING, AL=ALTITUDE, 
LA=LANDED ? 1=V, FL=FLAPS, 
RO=ROLL,SP=SPEED 

650 POKE 53272,21 PRINT"(CLR,HVID, 
SPACE4) 1 - 


330 PRINT”(CRSR NED,CYAN)I HIS GAME S 
IMULATES AN (RVS ON, 

R0D)n/*I -L-,1 II (CYAN, 

RVS OFF)", 

340 PRINT"(CRSR NED)AND IT'S (RVS ON, 
R0D)/TI(CYAN,RVS OFF, 

SPACE)POSSIBLE TO MAKE (RVS ON, 

ROD)*/I (CYAN,RVS OFF, 

SPACE)USE OF", 

350 PRINT"(CRSR NEB1A COCKPIT WINDOW 
.(%T'S CLOUDY WEATHER!)" 

POKE 53265,27 

360 FOR S=1 TO 500:NEXT:GOSUB 370 
GOTO 400 

370 PRINT"(HOME,CRSR NED23.LILLA, 
SPACE )"FESS - _ l /_/ KEY TO CONTINU 
E."POKE 198,0 

380 GET A* : IF A*OCHR*< 13)THEN 380 
390 RETURN 

400 PRINT"(CLR.CRSR H0JRE3, 

HVID)"LEASE SELECT SKILL LEVEL 1- 

410 PRINT"(CRSR NED,CRSR H0JRE3, 

RVS ON.HVID) - ** I (RVS OFF,SPACE, 
LILLA)= (CYAN>123456789 <LILLA)= 
(R0D.RVS ON)'.\"T**-, IL"(RVS OFF) 
POKE 198,0 

420 GET A* IF A$<"l"OR A*>"9"THEN 420 
430 REM MH=MOUNTAIN HEIGHT TM=TIME F 
U=FUEL AM=AMMO WI=WIND SPEED 

440 LV=VAL(A») _ 

450 MH=LV* 1 1 05 + (I NT ( RND ( 0 ) * 500 ) > 

460 TM=(10-LV)*240+(INT(RND(0>*20>) 

:IF TM<960 THEN TM=960 
470 FU=50*((9-LV)*5)+(INT(RND(0)*30>) 
480 AM=1l“LV+(INT(RND(0)*5)) 

490 WI=INT(LV/3) 


660 PRINT" (BLAA>* (HVID)I(ORANGE)M 
ESSAGE FROM COCKPIT COMPUTER (HVI 
D> I (BLAA)*" 

670 PRINT" * (HVID) I <R0D>- 

(HVID)I (BLA 

A)*" 

680 PRINT" (HVID) «-- 


690 SC*="(HOME,CRSR NED15) 
700 PRINT"- 


710 PRINT"(CRSR NED10 


720 POKE 54283,16 POKE 54234,0 
POKE 54285,200 POKE 54280,0 
POKE 54283,17 

730 POKE 54276,128 POKE 54277,0 
POKE 54278,200 POKE 54276,129 
740 C*=CHR* ( 13 ) : UCf = " DOWN " : FL*= " OFF " 
BRt="OFF":TI*="000000":GOSUB 1680 
EE=ED 

750 TH=0 : MET="(HOME,CRSR NED2, 

CRSR H0JRE5,SPACE30, 

CRSR VENSTRE27 >" 

760 ME*=MEt+"(CRSR VENSTRE3)" 

770 J=PEEK(56320> : GET A*P=J AND 16 
:J=J OR 16 






60+TH 

1250 POKE 54280,80+SP/6.5 
1260 IF SP<TH*10 AND BR$="OFF"THEN S 
P=SP+10 

1270 SP=SP-(CL+1)/5 SP=INT(SP) 

1280 IF ALO0 THEN X=0GOTO 1300 
1280 X=X+SPIF X>20000 THEN A=3 
:OOTO 2020 

1300 IF CUP I THEN CL=CL+.5*FP 
1310 IF CUP I THEN CL=CL-1 
1320 IF CL>0 THEN SP=SP-CL/2 
1330 IF CL<0 THEN SP=SP+CL/2 
1340 IF ADC50000 THEN AD=AD+CL 
: AL=INT CRD) 

1350 AD=AD~(10-SP/50) : IF AD<0 THEN fi 
D=0-RL=INT(RD) 

1360 FL=FL-TH/1000FU=INT(FL) 

• IF FU<=0 THEN TH=0 

1370 IF BRIO "OFF "RND SP>=10 THEN SP 
=SP-20 

1380 IF WICl THEN 1430 
1390 IF RND(0K.9+((12-LW100)THEN 
1430 

1400 IF RND(0»=.5 THEN 1420 
1410 R0=R0+WI PRINT MEfWIND 

:";abs(WI):gosub 1820 goto 1430 

1420 RO=RO-WI PRINT MEfWIND :";WI 
:GOSUB 1820 GOTO 1430 
1430 IF SP<0 THEN SP=0 
1440 IF RLC10 RND RLO0 AND RND(1». 
95 THEN PRINT MEf GROUND WARNING 
!" : GOSUB 1320 
1450 IF RL>0 THEN 1510 
1460 IF UCtO" DOWN "THEN fl=10 
:G0T0 2020 

1470 IF CT>=700 RND CT<=750 RND CC=0 
RND SP=0 THEN GOSUB 2560 

• GOTO 1210 

1480 IF CT>20 AND CT<700 THEN R=4 
:GOTO 2020 

1490 IF CT>750 RND CT<1500 THEN A=4 
GOTO 2020 

1500 IF CL08 THEN A=5G0T0 2020 
1510 IF CT=200 OR CT=250 THEN K$=MEt 
♦"MOUNTAIN WARNING !" GOSUB 1890 
1520 IF CTO300 THEN 1550 
icon ic a\ /--mu Turn 

1540 Kt=riE*+"MOUNTAIiis"CROSSED" " 
GOSUB 1890 

1550 IF(CT=350 OR CT=400)AND ES=0 TH 
EN K*=ME$+"ENEMY PLANE WARNING !" 
•GOSUB 1890 

1560 IF CTO550 THEN 1600 
1570 IF ES=1 THEN PRINT MET"RUNWRV I 
N SIGHT." GOSUB 1820 GOTO 1600 
1580 GOSUB 2520 IF CK=1 AND RND(0». 
3 THEN 2650 

1590 K$=MEt+"ENEMY ATTACK WARNING 1 “ 
GOSUB 1820 A=7:GOTO 2020 
1600 HE=HE+INT((RO*SP>/500) 

• IF HE<0 THEN HE=360-RO : GOTO 1620 
1610 IF HE>359 THEN HE=HE-360 

1620 GOSUB 2520-IF CK=1 THEN PRINT M 
Ef ENEMY IN GUN RANGE !" 

•GOSUB 1850 
1630 GOSUB 2680 

1640 IF CL*10>SP THEN R=8 GOTO 2020 
1650 ED=INT(EE) 

1660 IF RND<0)>.9 THEN EN=EN+INT(RND 
(0>*3>-l 
1670 GOTO 770 

1680 PRINT"(HOME,CRSR NED16)THRUST 
(CRSR venstre5)";th; 
"(CRSR VENSTRE)?:” 

1690 PRINT"FLAPS ■ "iFLt 

1700 PRINT"UNDERCARR. : "1UCt 
1710 PRINT"ALTITUDE 

(CRSR VENSTRE6)"iAL 
1720 PRINT"PITCH 

(CRSR VENSTRE3)";PI 
1730 PRINT"AIRSPEED 

(CRSR VENSTRE8)"1SP 
1740 PRINT"(CRSR 0P6)"i 
1750 PRINT"(CRSR H0JRE23)BRAKES 
: *;BRt 

1760 PRINT"(CRSR H0JRE23)TIME 
: ";TIf 

1770 PRINT"(CRSR H0JRE23)FUEL 
(CRSR VENSTRE4)";FU 
1780 PRINT"(CRSR H0JRE23)HEADING 
(CRSR VENSTRE4)":HE 
1790 PRINT"(CRSR H0JRE23)ROLL 
(CRSR VENSTRE4> “; RO 
1800 PRINT"(CRSR H0JRE23)DISTANCE 
: "; CT 

1810 RETURN 

1820 POKE 54290,32:POKE 54291,0 
POKE 54292,200 

1830 POKE 54290,33:FOR 1=1 TO 6 
1840 FOR S=100 TO 50 STEP-3 
POKE 54287,5:NEXT:NEXT 


POKE 54290,32:POKE 54287,0 RETURN 
1850 POKE 54290,32:POKE 54291,28 
POKE 54292,0 

1860 POKE 54287,50 POKE 54290,33 
FOR S=1 TO 500:NEXT:RETURN 
1870 POKE 54290-32:POKE 54291,0 
POKE 54292,200 

1830 POKE 54287,1 POKE 54290,33 
FOR S=1 TO 1000 NEXT 
POKE 54290,32 RETURN 
1890 POKE 54287,0 POKE 54290,64 
1900 POKE 54292,200 POKE 54290,65 

POKE 54289,100:FOR 1=1 TO LEN(Kt) 
1910 A*=MID*(K»,I,1>:PRINT At; 

1920 W=ASC(A$>-64 

1930 IF W<1 OR W>26 THEN NEXT PRINT 
RETURN 

1940 MCt=MCt(W> 

1950 FOR X=1 TO LEN(MCt) 

1960 St=MIDt(MC$,X,l> 

1970 IF S*="-"THEN POKE 54287,70 
FOR D=1 TO 50 NEXT POKE 54287,0 
GOTO 1990 

1980 POKE 54287,70 FOR D=1 TO 10 NEXT 
POKE 54287,0 GOTO 1990 
1990 FOR D=1 TO 5 NEXT NEXT 
2000 FOR D=1 TO 20:NEXT:NEXT:PRINT 
:RETURN 
2010 STOP 

2020 CP=0POKE 54273,0 POKE 54230,0 
POKE 54287,0 

2030 POKE 54276,128 POKE 54273,0 
POKE 54278,0 POKE 54277,29 
POKE 54294,160 
2040 POKE 54280,0 
2050 FOR S=1 TO 100 NEXT 

POKE 54273,10:POKE 54276-129 
FOR S=1 TO 100 

2060 POKE 53280,S/4 POKE 54294,200-S 
:POKE 54273,50-(S/3):NEXT 
POKE 53280,0 

2070 Kt=MEt+"AIRCRAFT DESTROYED...GA 
ME OVER" GOSUB 1890 
2030 FOR S=1 TO 2000 NEXT 
2090 PRINT"(CLR,CRSR H0JRE2, 

GR0N)REASON FOR ACCIDENT :(HVIP>“ 
2100 ON A GOSUB 2140,2150,2160,2170, 
2180,2190,2200,2210,2220,2230 
2110 PRINT"(CRSR NED CRSR H0JRE, 

GUL)PRESS SPACE TO CONTINUE." 

POKE 193,0 

2120 GET A*:IF AtO" "THEN 2120 
2130 GOTO 2240 

2140 PRINT"(CRSR NED)UNDERCARRIAGE R 
EMOVED ON GROUND."RETURN 
2150 PPI NT "(CRSR NED) TIME HAS RUN OU 
T.“:RETURN 

2160 PRINT"(CRSR NED)OFF THE RUNWAY." 

:RETURN 

2170 PRINT”(CRSR NED)CRASHED INTO GR 
OUND.":RETURN 

2130 PRINT"(CRSR NED)CRASH LANDING." 

:RETURN 

2190 PRINT"(CRSR NED'CRASHED INTO MO 
UNTRINS." RETURN 

2200 PRINT"(CRSR NED)SHOT DOWN BY EN 
EMV PLANE."RETURN 
2210 PRINT“(CRSR NED)STALLED.TOO MUC 
H CL IMB...TOO LESS SPEED.:RETURN 
2220 PRINT"(CRSR NED)BAIL OUT." 

:RETURN 

2230 PRINT"(CRSR NED)UNDERCARRIAGE W 
ASN'T LOWERED." RETURN 
2240 CC=CT*.2 PRINT"(CLR, 

HVID)YOU COMPLETED(GUL)",CC; 
“(HVID)MILES,” IF CP=0 THEN 2280 
2250 B=INT((TM-TI/60)/50) 

: PRINT"(CRSR NED.GR0N)TIME BONUS 
:(HVID>",E CC=CC+B 

2260 PRINT"(CRSR NED,GR0N)FUEL BONUS 
:(HVID)",FU*2 ; CC=CC+(FU*2) 

2270 B=LV*50 PRINT"(CRSR NED, 

GR0N)LEVEL BONUS (HVID)",B 
:CC=CC+B 

2280 FOR S=1 TO 2000 NEXT 

PRINT"(CRSR NED.HVID)TOTAL SCORE 
(GUL)";CC 

2290 PRINT"(CRSR NED)WHICH GIVES YOU 
THE RANKING" 

2300 PRINT"(CRSR NED)OF " 

FOR S=1 TO 3000 NEXT 
2310 X=INT(CC/100) 

2320 IF X=0 OR X=1 OR X=2 THEN A$="B 
EGINNER." 

2330 IF X=3 OR X=4 OR X=5 OR X=6 THE 
N At="PILOT." 

2340 IF X=7 OR X=8 THEN At="COMMANDE 
R." 

2350 IF X=9 OR X=10 OR X=ll THEN At= 
"ACE !" 

2360 IF X>11 THEN A*="SUPERMAN !" 


2370 PRINT FOR 1=0 TO 161 POKE 646,1 
PRINT"(CRSR OP,CRSR H0JRE7)";A$ 

:NEXT PRINT 

2380 PRINT"(CRSR NED2, 

CYAN)- 

2390 PRINT" (HVID)PRESS ANY KEY TO 
RESTART THE GAME" 

2400 PRINT"(CYAN)- 

-"■ : POKE 198,0 

WAIT 198,1 

2410 PRINT"(CLR)"i:IF CC>=HI THEN HI 
=CC 

2420 IF CCOHI THEN 30 
2430 PRINT"ENTER YOUR INITIALS PLEAS 
E ...(CRSR VENSTRE3)"i:X=1 HI1="" 
POKE 198,0 

2440 GET AJIF(At<"A"OR At'"Z")AND A 
*<>CHR*(20)THEN 2440 
2450 IF A*OCHR*(20)THEN 2480 
2460 IF LEN(HI*)=0 THEN 2440 
2470 HIt=LEFT*(HI$,LEN(HI*)-l)X=X-l 
PRINT"(CRSR VENSTRE).(CRSR VENST 
RE>“; GOTO 2440 

2480 PRINT At, HIt=HIt+A$X=X+l 
IF X<4 THEN 2440 
2490 GOTO 30 

2500 POKE 54283,128 POKE 54284,29 
POKE 54285,0:POKE 54280,10 
POKE 54294,220 

2510 POKE 54283,129 FOP S=1 TO 2000 
NEXT GOSUB 1890:RETURN 
2520 REM 

2530 CK=0 IF ES=0 AND(AL+10>EN AND A 
L-10<EN)AND ED<=5 AND ED>=-5 THEN 
CK=1 

2540 RETURN 

2550 EN=0EH=INT(RND(0)*360):ED=0 
GOTO 1210 

2560 IF HEOEH THEN A=4 G0T0 2020 
2570 IF UCt<>“DOWN"THEN A=10 
GOTO 2020 

2580 K$=MEt+"LANDED SAFELY." 

:GOSUB 1890 

2590 FOR D=1 TO 1000 NEXT 
2600 PRINT"(HOME,CRSR NED9, 

CR-SP H0JRE, HV ID)CONGRATULRTIONS ! 
LEVELLV"COMPLETED !" 

2610 PRINT“(CRSR H0JRE, 

GR0N)- 

":FOR S=1 TO 2000 NEXT 
: GOTO 2240 

2620 POKE 54237,0 POKE 54290,32 
POKE 54292,0:POKE 54291,23 
POKE 54290,33 
2630 POKE 54237,5 
2640 RETURN 

2650 PRINT"ENEMY ATTACK WARNING !" 
GOSUB 1370 

2660 IF RND(0>>.5 THEN PRINT"WE'RE H 
IT !“ : GOSUB 1820:A=7:GOTO 2020 
2670 K$=MEt+"ENEMV ATTEMPT FAILED !" 

:GOSUB 1890 GOTO 1210 
2680 IF HE=EH THEN EE=EE-1:RETURN 
2690 EE=EE+1 RETURN 
2700 PRINT"(CLR)";CHRt(8>; 

:POKE 53280,6 POKE 53281,6 
POKE 53265,27 POKE 53272,21 
2710 GOSUB 2810 

2720 FOR 1=54272 TO 54294 POKE 1,0 
NEXT POKE 54296,30:POKE 54295,255 
POKE 54294,255 

2730 Kt="(CRSR NED,CRSR H0JRE4, 

HVID)P I L 0 T TRAIN 

E R" GOSUB 1890 
2740 Kt="(CRSR NED2.S0RT, 

CRSR H0JRE,'COPYRIGHT 1985 A.O. 

D. SOFTWARE LTD" GOSUB 1890 
2750 Kt=“(CRSR NED,CRSR H0JRE7, 
GUDWRITTEN BY J. BJERREGAARD. " 
GOSUB 1890 

2760 Kt=“(CRSR NED2,CRSR HOJRE, 

HVID)NOTE (CRSR NED)" GOSUB 1890 
2770 Kt="COPYING, LENDING, HIRING," 
GOSUB 1890 

2780 Kt="(CRSR NED)BUY-BACK, 

PUBLIC PERFORMANCE," GOSUB 1890 
2790 Kt="(CRSR NED)TV OR RADIO BROAD 
CASTING OR DIFFUSION OF" 

GOSUB 1890 

2800 Kt="THIS PROGRAM IS STRICTLY RE 
COMMENDED !":GOSUB 1890 
2810 RESTORE POKE 53265,27 

FOR 1=1 TO 26 READ MC$(I) ; NEXT 
:RETURN 

2820 DATA.-,-. 


2830 DATA.-.,...,-,..-,..-.,-.—, 


23 






Du er blevet tdrnudspringer 
ved De olympiske Lege. Slat- 
ten er maximal tia Team Dan¬ 
mark, sd de forventer et godt 
resultat. 

Alle instmktioner er indlagt i 
programmet sd det er nemt at 
finde rundt i de mange mulig- 
heder. j 0 inFalk 


Bt 

m 


1 SBH S' .I8RW 
5 LET Rt.S 


EOI K 3 3/4 1535 


3 GO SUB Ii>lOO 
4. GO SUE 1530 
B GO SUE 1370 

C LET n * = " I": LET b*="n": LET 
t*«" LET c * = ••«"• LET v$ = "||" 

7 LET Scm ->3- LET k o l =0 ■ LET 
PU«0: LET f =4 LET hv .3 = 5© 

S LET SC 1=0: LET sc5=0: LFT s 
C3=0: LET SC4=0: LET Sc5=0- lET 
SCS=0: LET s c 7=0 

10 RESTORE 50 - pro? j= 5 TO 21 
SO RERD at 

30 PRTNT RT i,4, INK 4,at 
4.0 NEXT i 

60 DOT R " ■EHBHHi" 

so 

90 DOT R " ^ 

100 DOT R " 

110 DOT R " 

150 DRTR " 

130 DRTR “ 

14.0 DRTR " 

1E0 DRTR " 

160 DRTR “ 

170 DRTR " 

1S0 DRTR " 

190 DRTR " 

500 DRTR " 

510 DRTR 
550 DRTR 
530 RESTORE 550 
338 RERD a* 

540 FOR i =0 TO 7: RERD a: POKE 
USR atai,a: NEXT i 
5B0 DRTR "a",0,3B5,0,0,0,355,0, 

0 

300 EOR a =S TO 51 

310 PRINT RT a,7, INK 4;"* B" 

315 PRTNT RT a, 8 , INK l;"”" 

350 NEXT a 

3B0PniNT9T£0,15; INK 5;"fiBBB 

51,15; INK 5, "GHE 

3B^I^va^^^THEN PRINT RT 3.17 
! PRXNT RT I": GO TO 5 

370 EOR a =0 TO S 

3e4 IE a<4 THEN LET pa*7 

3S6 IE as=4 THEN LET pa-4 

388 IE a =8 THEN LET pa=7 

300 PRINT RT 50,a, INK 1; PRPER 

400,' IniNT RT 51,a; INK 1; PRPER 

£06 LET puaput-l 

410 IF pn =50 THEN LET pu-0: GO 
TO 414 

411 GO TO 405 

414 PRINT RT 50,a, INK 1; PRPER 

416 PRINT RT 51,a; INK 1; PRPER 

pa; " I” 

417 LET PUMPU+1 

415 IE pu=10 THEN LET pu=0: GO 
TO 450 

419 GO TO 417 

450 IE a<4 THEN LET t*=" “• LET 

430 IE a>4 THEN LET t$ = "■": LET 

440 ?E a=4 THEN LET t*="I" LET 

am a =8 THEN LET t$ = "■": LET 

«*="■": LET f-0 

455 IE a=7 THEN LET LET 

4*0 Print rt s©,a, ink f;t* 


470 PRTNT RT 51,a; INK f;y* 

590 NEXT a 

600 EOR a*50 TO 3 STEP -1 

605 IE a=4 THEN LET 

604 IF a=3 THEN LET V*«'K" 

610 PRINT RT a,8, INK 1, c* 

650 PRINT RT a+1,8, INK l;v1- 
555 LET pu «Pu * 1 

630 IE pu=SB THEN LET pu=0 GO 

TO 635 

631 GO TO 655 

635 PRINT RT a,6, INK l;c* 

636 IF a=3 THEN GO TO 645 
640 PRINT RT a *-1,8, INK l;b* 

645 LET pu*pu*l 

650 IE puslO THEN LET pu=0: GO 

TO S55 

651 GO TO 645 

655 IE a-3 THEN LFT nl = ”V 

560 PR TNT RT ail,S,nt 

670 NEXT a 

700 FOR a=6 TO 17 

710 PRINT RT 3,a; INK 1; "S," 

750 PRINT RT 4,a; INK 1; "R" 

7-25 LET pusputl 

730 IF p U =50 THEN LET pu=0: GO 
TO 740 

735 GO TO 755 

740 PRINT RT 3,a; INK 1,"J" 

750 PRINT RT 4,a, INK 1; “ f" 

755 IF a=17 THEN GO TO 2000 

756 LET pusputl 

760 IF pu-10 THEN LET pu=0: GO 
TO 770 

765 GO TO 756 

770 PRINT RT 3,a, " ” 

780 PRINT RT 4,a," “ 

790 NEXT a 
999 STOP 

1000 RESTORE 1040: EOR i=0 TO 50 
1010 RERD a $ 

1020 EOR u=0 TO 7: RERD a: POKE 


1050 EOR 


TO 7: RERD a: POKE 


t*= - ••; 

LET 

3,156,156 
1180 DRTR 

t * = •■■ •: 

LET 

5,105,105 
1190 DRTR 

t * = ••■" 

LET 

5,105,531 
1500 DRTR 

r* 

Ifr 

II 

m 

LET 

8,154,156 
1510 DRTR 


LET 

54,50,59 
1550 DRTR 


USR a $ 4-u , a : NEXT o 
1030 NEXT i 

1040 DRTR •a”,1,1,1,1,1,1,1,3 
1050 DRTR "b",3,3,3,3,3,3,3,3 
1060 DRTR "C",7,7,7,7,7.7,7,7 
1070 DRTR "d",15,15,15,15,IS,15, 

1080 DRTR "e“,31,31,31,31,31,31, 

IO 60 DRTR "f ••,63,63,63,63,63,63, 
63,63 

1100 DRTR ••a" , 157,157, 157,157,15 

7.157.157.157 

1110 DRTR "h”,554,555,554,554,55 

4.555.554.554 

1115 DRTR " 0 ",157,555,157,157,IS 

7.555.157.157 

1150 DRTR "i-,555,554,555,548,54 
0,554,195,158 

1130 DRTR "J",15,31,63,157,157,1 

57.157.157 

1140 DRTR "k",555,555,555,555,55 
4,555,548,540 

1150 DRTR "f, 110,555,555,555,55 

5.555.555.555 

1160 DRTR "■•‘,98,119,555,555,555 
,555,555,555 

1170 DRTR "n",153,189,189,153,15 


1555 RETURN 









































































• HCT 

MoraCm rhorwn' 


1230 DRTfl "t",IS,15,15,6,6,6,6,7 
124.0 CLS : PRINT RT 0, 10,' "TRftRNS 
PRING" 

1250 PRINT RT 2,8;CHR* 127;CHR* 
32;CHR$ 28;CHR* 121,CHR* 32;CHR* 
74;CHR* 4.8; CHR* 82; CHR* 78; CHR* 
32;CHR* 70;CHR* 65,CHR* 76;CHR* 

1260 PRINT ••••! TRRRNSPRING 5KRL 
DU DEFINERE";';"DINE SPRING SRR 
HEGET SOH HULIGT" 

1268 PLOT 255,121: DRRU -1,0: DR 
RU 0,1: DRRU 1,0 

1266 PRINT "POINT GIUES EFTER 13 
6 KRLREN." 

1270 PRINT RT 10,11;"STYRING" 
1275 PRINT '"SPRINGER HED TRSTEN 
H" 

1280 PRINT "HRUEN NEDRD HED TRST 
EN 8" 

1220 PRINT "HRUEN OPRD HED TRSTE 

N 5" 

1300 PRINT "HOUED OPRD HED TRSTE 
N 7" 

1310 PRINT "HOUED NEDRD MED TRST 
EN 6" 

1320 PRINT "BIDDER SIG NED HED T 
RSTEN L" 

1330 PRINT “STRREKKER SIG UD MED 
TRSTEN X" 

1340 PRINT "5LRRR EN KOLB0T HED 
TRSTEN B" 

1350 PRINT RT 21,2; ELRSH 1;"TRY 
K EN TRST" 

13e0 PAUSE 0: CLS 
1365 RETURN 

1370 CLS : PRINT RT 2,0,"1. SPRI 
NG. " 

1380 PRINT RT 4,0,"2. GOR PRRRT, 
OG 5PRING." 

1385 PRINT RT 6,0,"3. REKORDFN" 
1320 IE INKEY**"1" THEN LET vae = 
1: CLS : RETURN 

1400 IF INKEY* —"2" THEN LET vae = 
3: CLS : RETURN 

1405 IF INKEY * *"3" THEN CLS : PR 

INT RT 2,O,"REKORDEN ER ";hc- PR 

USE 200: GO TO 1370 

1410 GO TO 1320 

1700 STOP 

2000 RESTORE 2040 

2010 RERD a* 

2020 FOR i*0 TO 7: RERD a: POKE 
U-SR a * + i , a : NEXT i 

2040 DRTR "u",32,32,32,26,122,12 
•5,0,0 

2300 PRINT RT 3,18;"*" 

2310 GO SUB 4030 

2315 PRINT RT 1,20;“SPRING" 

2320 IF INKEY*-"h“ THEN GO TO 23 
40 

2330 GO TO 2320 

2340 LET a-18: LET a**" I I" 

2350 LET b=3: LET b*=" 

2354 PRINT RT 3,17;" " 

2356 PRINT RT 4,17;" " 

2360 PRINT RT b,a, INK l;a* 

2364 LET pu=pu+l 

2365 IF pu*10 THEN LET pu=0: GO 
TO 2370 

2366 GO TO 2364 

2370 PRINT RT b,a;" “ : LET a*a + 

2375 IF a>-20 THEN GO TO 240® 
2380 LET b — b + 1 
2330 GO TO 2370 
2400 LET a-a +1 

2405 LET j*=" ": LET h*-" : L 

ET a * — "j" : LET b*-"l" 

2410 LET b — b ♦ 1 

2460 REM HER. FOREGRRR SELUE SPRI 
NGET 

2480 IF INKEY * —"7" THEN LETscl* 
scl+l:LET hva-15: LET a*-"*": L 

2420*?F*iNKEY*-"6" THEN LET SC2» 
SC2+1: LET hva-15: LET a*-"I": L 
ET b*-"1" 

2500 IF INKEY * —"8" THEN LET SC3- 
SC3 + 1: LET hva-15: LET a*-" I I": 
LET b* —" 

2510 IF INKEY* — "5" THEN LET S c4 = 
s c4 + l: LET hva-15: LET a*-"^": 
LET b*-" 

2520 IF INKEY*-"l" THEN LET ic5= 
scStl: LET hva-10: LET a*-"I": L 
ET b*-"l" 

2530 IF INKEY* —"X" THEN LET SC6* 
s C6 + 1: LET hva-17: LET a*-"*": L 
ET b*-"*" 

2540 IF INKEY*-"b" THEN LET SC7- 

s c7tl: GO SUB 5000 

2700 PRINT RT b,a; INK l;a* 

2710 PRINT RT b«-l,a; INK 1; b* 
2220 IF b —20 THEN LET h*-"**": L 

300^*LE? pu>putl 

3010 IF po-hva THEN LET pu-0: GO 
TO 3030 

3020 GO TO 3000 

3460 IF b-12 THEN PRINT RT 10,20 
; INK 5;: PRINT RT 12,23; INK 

34&S* IF b-12 THEN IF a*-“ |" THEN 
LET do-1 

3467 IF b-12 THEN IF a *<>" |“ THE 
N LET do-0 


S* 7 ® AT b + l,a; INK 5;J* 

2* 7 ® ?5 T £f T ~ OT b ' a ' INK B;h* 

®* 77 b —20 THEN GO TO &500 

3480 LET b=b+l 
3420 GO TO 2420 

3500 LET a*-" | I”: LET a-a + l: LET 
b = b +-1 

•3505 PRINT RT 12,20;" ": PRINT R 
T 12,23;" " 

3510 PRINT RT b,a, INK 1, PAPER 
3520 GO TO 6000 

4000 RESTORE 4030 FOR i =0 TC> 13 
4010 RERD a* 

4020 FOR 0*0 TO 7: RERD p: POKE 
U5R a *tO,p: NEXT o 
4025 NEXT i 

4030 DRTR "a",0,128,255,253,230, 
48,31,0 

4040 DRTR "b",0,7,255,255,135,0, 

0,0 

4050 DRTR "C" ,28, 12, 12,12 v 1,2,30, 
30,30 

4060 DRTR "d",30,30,60,124,76,24 
,86,76 

26 7 112°"m "e",0,0,26,208,240,28, 

4080 DRTR •’t ",254,255,240,240,24 
0,254,127,0 

0 0 ll0 120 " 9 "' 4 ' 9 ' 105 '121,51,54,6 

4100 6RTR "h",120,120,120,48,48, 
48,48,56 

4110 DRTR "i",0,0,0,225,255,255, 
224,0 

4120 DRTR "J",240,24,12,103,321, 
255,22,0 

4130 DRTR "k",153,182,182,153,16 
3,126,60,60 

4140 DRTR 60,60,60,60,102,66 

, 122,122 

4150 DRTR "n", 160,2,80,37,21,73, 

4160 DRTR “o",8,142,32,20,205,64 

,180,224 

4500 RETURN 

5000 FOR z — 1 TO 4 

5010 IF z —1 THEN PRINT RT b,a, I 
NK 1; -m" 

5020 IE z-2 THEN PRINT RT b-J,a; 

INK 1;"*": PRINT RT b,a;"*" 

5030 IE z-3 THEN PRINT AT b,a; I 
NK 1; "J |" 

5040 IF z-4 THEN PRINT RT b-3,a; 
INK 1; " |": PRINT RT b,a;"|" 

5044 LET pu*pu+l 

5045 IF pu=5 THEN LET pu=0 CO T 
O 5050 

5046 GO TO 5044 
5050 PRINT RT b-l,a," 

5060 PRINT RT b,a;" 

5070 NEXT z 

5080 PRINT RT b,a; INK l,"!": PR 
INT RT b-t-1,a; " 1" 

5020 RETURN 
5000 LET p u —p u 4-1 

6002 IF pu *200 THEN LET pu*0: GO 
TO 6005 

6004 GO TO 6000 

6005 CLS 

6007 IF do *0 THEN GO TO 6080 
6010 IF s C1 > 0 RND s c1<3 THEN LET 
score-s co re +s c 1 
8815 IF s c1>2 THEN LET scl=0 
6020 IF s c2 >0 RND sc2<3 THEN LET 
score*scoretsc 2 
6025 IF s c 2 > 2 THEN LET SC2-0 
6030 IF SC3>0 RND SC3<3 THEN LET 
sco re —s co re +s c3 
6035 IF s c 3 > 2 THEN LET SC3-0 
8040 IF S C4 >0 RND SC4<3 THEN LET 
score-s core +sc4 
6045 IF S c4 >2 THEN LET SC4-0 
6050 IF sc5-l THEN LET SCO re*sco 
re +s cB 

6055 IF S C5 > 1 THEN LET SC5-0 
6060 IF S C6 >0 RND sc6(3 THEN LET 
score»scoretsc6 
6065 IF SC6>2 THEN LET SC6-0 
6070 IF S c7 >0 RND SC7<3 THEN LET 
score-score+sc7 
6075 IF s C? >2 THEN LET sc?-0 
6080 PRINT RT 2,13; "SCORE" 


O 5 


C2 

6120 PRINT RT 7,0,"DOMMER 3: ",s 

C-3 

6130 PRINT RT 8,0,"DOMMER 4: ";s 

C4 

6140 PRINT RT 2,0;"DOMMER 5: ";s 

cB 

6150 PRINT RT 10,O;"DOMMER 6: "; 

3 c6 

6160 PRINT RT 11,0;"DOMMER 7: "; 

s c7 

6170 PRINT RT 13,0;"IRLT score 
6175 IF score>hc THEN LET he-see 

6180 PRINT RT 21,2,"TRYK EN TRST 

irr>D c—r kintt Bnri •• 


. OL.UNC 

PRINT ' 

"DJSKE 

SUB 1000: 

GO T 

"DOMMER 

1 : 

s 

“DOMMER 

2: 

s 

"DOMMER 

3: 

"i s 

"DOMMER 

4 : 

s 

"DOMMER 

5: 

"; s 


FOR ET NYT 5PIL“ 
6120 PRUSE 0: CLS 
GO TO 5 


GO SUB 1®00: 
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■ Hvis du gdr meget pd bibli- 
oteket, heir du sikkert ogsd id- 
et rykkere for for sent afleve- 
rede boger. Med dette prog¬ 
ram, der egner sig bedst sam- 
men med en diskettestation, 
kan man holde styr pd sine 
hjemldn. 

Hvergang man har veeret pd 
biblioteket. starter man prog- 
rammet og vcelger 2 pd me- 


nuen. Man skal sd indtaste 
aflevringsdatoen for de bog- 
er, man har ldnt samt navne- 
ne pd alle bogerne. 

Hver gang man sd skal afle- 
vere sine fcxzlger, vcelger med 
3 pd menuen og indtaster 
navne pd de boger, man af- 
leverer. Det er nok kun at ind¬ 
taste starten pd titlen. 
Endelig kan man ndr som 


heist se hvilke boger, der skal 
afleveres hvomdr, ved at 
vcelge 1 pd menuen. 

Far programmet startes forste 
gang, skal man skrive folgen- 
de: 

OPENOUT "bib.dat" 

PRINT #9,0,0 
CLOSEOUTD 

Lars Christensen 


10 ’BIB-file (c) by LCSo-ft 
12 ZONE 15 

20 INK 0,0:M0DE 2:PRINT TAB(20)“B I B - F i 1 e“ 

30 PRINT:PRINT TAB(10)"Indtast dags dato ’15,3’ : “i 
40 SYMBOL AFTER 256:0PENIN*bib.datMEMORY HIMEM-1 
50 false=(1=0):true=(1=1) 

60 INPUT#9,value.s.antal 
70 DIM bog*(50),value(50) 

80 FOR bog=l TO antal:INPUT«9,bog*(bog),value(bog):NEXT bog:CL0SEIN:SYMBOL AFTER 
91 

90 SYMBOL 91,126,216,216,254,216,216,222:SYMB0L 92,118,200,214,214,214,38,220:SY 
MB0L 93,56,0,124,198,254,198,198:SYMB0L 123,0,0,118, 

26,126,216,110:SYMBOL 124,0,0,118,204,214,102,220:SYMBOL 125.48,0,120,12,124,204 
,118 

100 INPUT idato* 

110 p=INSTR(dato*,” "):IF p=0 THEN PRINT“Duer ikke, prlv iger> !”:G0T0 100 
120 dag=VAL(LEFT*(dato*,p-1)):maaned=VAL(MID*(dato*,p+1)) 

130 IF maaned=0 OR dag=0 THEN PRINT"Duer ikke, priv igen !“:G0T0 100 
140 DEF FNvalue(dag,maaned,aar)=dag+32*maaned+416*(aar-85) 
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Programmer: 

Samtlige attrykte lislmnger 
ei atprovede lor oHenthg- 
gorelse Forlagel betaler 
skattelnt op til 1000 kroner 
lot godkendte teserpro 
grammer Forlagel har rel til 
at altrykke godkendte pro¬ 
grammer 1 bladel og oHent- 
liggere dem pd andre 
lagermedia 


150 DEF FNdag<value)=value MOD 32 

160 DEF FNmaaned(value)=value\32 MOD 13 

170 DEF FNaar(value)=(value\416)+85 

180 aar=FNaar(value.s):IF maaned<FNmaaned(value.s) THEN aar=aar+l 
190 value=FNvalue(dag,maaned,aar) 

200 CLS:PRINT TAB(20)"B IB File" 

210 PRINT CHR*(13)CHR*(18)“D.”dag“/“maaned"- * aar" Sidst brugt d."FNdag(value.s 
)"/"FNmaaned(value.s)"-"FNaar(value.s)" "antal"b! 
ger hjemme 

220 PRINT:PRINT TAB(10)"1 - Liste over blger 
230 PRINTlPRINT TAB(10)"2 - L>nt blger 
240 PRINT:PRINT TAB (10) "3 - A-f lever blger 
260 PRINT:PRINT TAB(10)"Indtast valg : "5 

270 INPUT valg*:valg*=LEFT*(valg*, 1) : IF valg*="" THEN valg*="l" 

280 IF INSTR("123",valg*)=0 THEN 150 

290 ON UAL(valg*) GOTO 300,460,540 

300 ’Liste boger 

310 start=-f alse: bog=l 

320 IF bog>antal THEN 420 

330 IF value(bog)>=value THEN 360 

":start=true 

350 G0SUB 680:bog=bog+l:GOTO 320 

360 IF start THEN CALL fcrBB18 

365 start=-false 

370 IF bog>antal THEN 420 

380 IF value(bog)-7>value THEN 410 

390 IF NOT start THEN CLS:PRINT TAB(20)"Skal atleveres inden Tor 1 uge!"(start 
=true 

400 G0SUB 680:bog=bog+l:GOTO 370 
410 IF start THEN CALL trBB18 
415 start=-false 

420 IF bog>antal THEN CALL &BB18:G0T0 200 

430 IF NOT start THEN CLS:PRINT TAB(20)"\vrige.":start=true 
440 GOSUB 680:bog=bog+l 
450 GOTO 420 
460 ’Laane boger 

470 CLS:PRINT TAB(20);"L I N E B \ G E R“ 

480 INPUT "Indtast afleveringsdato ’17 3’ : “,dato* 

490 p=INSTR (dato*, " "): d=VAL <LEFT* (dato*, p-1)) :’m=VAL (MID* (dato*, p+1) ) 

500 IF p=0 OR maaned=0 OR dag=0 THEN PRINT"Duer ikke, prlv igen !“ 

510 a=FNaar(value):IF m<FNmaaned(value) THEN a=a+l 
520 INPUT "Indtast bogens navn (eller ’STOP’) : *,navn* 

530 IF UPPER*(navn*)="ST0P“ THEN 640 ELSE antal=antal +1:bog*(anta 1)=navn*:value( 
antal)=FNvalue(d,m,a):GOTO 520 
540 ’A-flevere 

550 CLS:PRINT TAB(20)J"A FLEVERE B\GER" 

560 INPUT "Indtast bogens navn (eller ’STOP’) : ",navn* 

570 IF UPPER*(navn*)=“ST0P" THEN 640 
580 FOR bog=l TO antal 

=« PRitl?-I?*dtf F -5o5ST5oi??!^ > B^igS!ct¥9S > <=iapa.f??<>■ then * 

610 FOR x=bog TO antal-1:bog*(x)=bog*(x +1):value(x)=value(x +1):NEXT x 

620 antal=antal-l:PRINT"Slettet.":GOTO 560 

630 NEXT:PRINT"Ikke Tundet!“:GOTO 560 

640 ’ a-f slutte 

650 0PEN0UT"bib.dat“ 

670 FOfTbog^TO antal: WRITE#9, bog* (bog) , val ue (bog) : NEXT bog: CLOSEOUT: GOTO 200 

680 ’Udskri-ft , , , 

690 PRINT FNdag(value(bog))"/"FNmaaned(value(bog))"-"FNaar(value(bog)),bog*(bog) 

:RETURN 





























Hole in one 



■ I dette program kommer 
du med VIC-20 pd goltba- 
nen. For at gennemlore spillet 
skal du igennem 9 huller, og 
til det lormdl er du i besiddel- 
se at 9 koller (hver kolle har 
sin egen slagstyrke tra 1 til 9). 
Spillet, som er lavet til en stan¬ 
dard VIC-20, er i hojoploselig 
gratik, og er delt op i to dele. 
Hvis du er en nogenlunde ha- 
bil computer-goltspiller, skul- 
le det vcere muligt at klare de 
9 huller pd 36 slag.D 

Lars Rosendal 


ST 
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I PRINT"THE VIC OPEN ****"■ PRINT"NBOTsTSB-HULLET GOLF SPIL" 
3 PRINT"it!######!#*#" 

5 PRINT"MlttLAVET RF LflRS ROSENDHL M 1983" 

10 V*37878:P0KEV,15 

II RERDN,D : IFN=-1THENPOKEV,0 ■PQKEV-2,0:POKEV-3,0■GOTO20 
12 POKEV-3,N:POKEV-2,N:FORT=lTOD:NEXT:GOTOl1 

15 DRTR195,200,207,200,215,600,0,200,195,200.215,200,209,600,0,200 

16 DRTR215,400,207,400.195,400,175,400,-1,-1 

20 POKES1,0:P0KE52,28:P0KE55,0:P0KE56,28 = CB=7168 
25 REfiDR:IFR=-1THEN40 
30 FORN=0TO7 ■' RERDB : P0KECB+N+8#fl, B : NEXT 
35 00T025 

40 PRINT'TBnnn BEH0VER DU MINSTRUKSTJONER? <JXN>" 

50 GETR* : IFR*=""THEN50 
55 IFfi$*"J"THEN70 


1. del 


60 IFR*="N"THENPRINT"WOT.K. TRVK 'NEW' OG 


•LORD OG RUN 


Bl' GOLF SPIL' 


65 PRINT"WOHELD OG LVKKE!" : END 

70 PRINT'TXEBIBFLVT MRNDEN TIL BOLDENM1ED TRSTERNE J-" 

75 PRINT"MR - OP Z - NED BN- VENSTRE M - H0JRE" 

80 PRINT"BK BOLDEN VIL FLVTTE SIGMDIREKTE VflEKTRfl MfiND-BEN NRRR DU RAMMER.)" 

85 PRINT"BttOTTRVK SPACE!" 

90 GETR* : IFfi*0" "THEN90 

95 PRINT'TIBNRRP J1RNDEN ER I KOR- MREKT POSSITION TRVK T.MDU SKRL INDPUTTE K0LLE" 

100 PRINT"NRi CET NR. FRR 1 TIL M9). 1 ER DET LRENGESTEBKLAG OG 9 EP EN K0LLE" 

105 PRINT")850M KUN FLVTTER BOLDENBEN TRK." 

110 PR I NY 11 IWUTRVK SPACE!" 

115 GETR*:IFflfO" "THEN115 
120 PRINT"nWRR0V AT HOLDE BOLDEN BPAR BRNEN OG KLRRE BFORHINDRINGEPNE." 

122 PRINT"WDET NORMRLE RNTRL SLRGBER 36." 

125 PRINT"BJTRVK NU 'NEW' BCG 'LORD' BUG 'PUN'." 

ipc PPI NT " BUF! Tl fin I Vk'KF I H 

1010 DRTR0,0,0,0,24,24.0.0,0 1070 DRTR1,3,15,63,63,127,127,255,255 

1 0 20 DRTR28,16,24,28,30,16,16,16,16 J 000 ,240,252,252.254,254,255,255 

1030 DRTR35,24,24,60,90,90, 6@, 36,1 @2 J 000 ' |S' S2' ' |5 2 i|' 1 

1040 DRTR36,24,6^,126,255,255,126,60,24 00 ' 2 ® 5 '* 2 T 7 % 

1050 DRTR37,24,24,24,24,24,24,24,24 \ 0 WTR32,17,34,68,136,17,34,68,136 

1060 DRTR26-255,255,255,255,255,255,255,255 1120 DMTR5.252.126,126,63,63,126,126,252, .1 


10 P0KE36879,217:ppi ht" IT : H=0:SR=0:C=30720 
40 P0KE36869,255:fl=RND<0) 

50 PRINT"H" SC=0 

60 R=INT <RND<1)#5) +1:B=INT(PND>'1 )#9) : D-14-R-B ; H=H+1 POKE198,0:IFH>9THENGOSUB5000 
:GOTO600 

61 IFF<5THENZ=7790=V=23:V=0■GOTO70 
65 Z=8010 1 V=-21 : V=2 

70 FORX=0TO6:W=Z+X:PQKEW+1,216:PQKEC+1+W,5 
75 POKEW+23,160:POKEW+45.160:POKEW+67,160 
30 POKEW+89,216:P0KEC+89+H,5:NEXT 
39 IFB=0THEN110 

90 FOPX=1TOV#BSTEPV:W=Z+V+R+X:POKEW.216:POKEC+W,5 

95 POKEW+22,160:POKEW+44.160:POKFW+66.160 

100 P0KEZ+88+R+X,216:P0KEC+88+Z+A+X.5=NEXT 

110 FORX=0TOD : W=Z+A+V*B+X: POKEW+2.216.: P0KEC+2+U. 5 

115 POKEW+24.160:POKEW+46.160 POKEW+68.160 NEXT 

120 FOPX=0TOD+1:W=Z+A+V#B+X ; POKEW+89.216:P0KEC+89+W,5:NEXT 

130 F=Z+62+<V-1)#B:POKFF,28:POKEC+F•0 

140 POKEF-1.26:PQKEF+1,26:POKEF-22.26:POKEF+22,26 

145 POKEC+F-1,5:POKEC+F+1,5:pOKEC+F-22.5:POKEC+F+22,5 

150 W=Z+22#V+A POKEW+25,37:P0KEC+25+W.2:POKEW+3.36:POKEC+3+W.5 

160 W=Z+R+V*B : POKEW+2 • 37: P0KEC+2+W, 2: POKFW-20.36: POKEC-20+W, 5 

170 POKEF—23,1:POKEF-21,2:POKEF+21,4:POKEF+23,3 

175 POKEC+F-23,5:POKEC+F-21.5:POKEC+F+21,5:POKEC+F+23•5 

176 IFA>2THEN180 

177 POKEF-2,5:POKEF+C-2,6:POKEF-24,5:POKEF+C-24.6 POKEF+20,5:POKEF+C+20•6 
180 W=Z+<V-l)#B : POKEW+80.1:POKEC+80+W.7:POKEW+81.2:POKEC+81+W,7 

190 POKEW+102,4:POKEC+102+W,7:POKEW+103,3:POKEC+103+W,7 

193 FORX=7680TO8098STEP22:POKEX.230:NEXT FOPX=7701TO8119STFP22 = POKEX,230 NEXT 
200 PRINT"SJSHUL NP. "H 

210 B=Z+45:BC=B+C=POKED,0:M=7724:MC=M+C:POKEM,35:POKEMC.2:POKEBC,0 

220 N=230: NC= 1 : Q= 160: QC-1: V=>36878 

400 P1=PEEKCl97) : IFP1=1?THENDM=-22:GOSUB1000 

405 I FP1=33THENDM=22: GOSIJB1000 

410 IFP1=28THENDM=-1:GOSUB1000 

415 IFP1 =-36THENDM= 1 : GOSUB 1000 

420 IFP1=50THENGOSUB2000 

430 POKE198,0:1FP=28THENP=0:GOTO50 

440 GOTO400 

600 FORX=1TO6000:NEXT:P0KE36869,240:PRINT"D" : END 
1000 IF(M+DM)<7702OR(M+DM)>8185THENDM=0:RETURN 


2. del 






1010 P2=PEEK < M+DM >:IFP2=0ORP2=36ORP2=37ORP2=28ORP2=5THENDM=0■RETURN 
1020 POKEM,N:POKEMC,NC:N=PEEK(M+DM):NC=PEEK(MC+DM>:POKEV.15'POKEV-2,200 POKEV-2, 
0:POKEV,0 

1030 M=M+DM:POKEM,35 = MC=M+C:POKEMC,2 : RETURN 

2000 DB=B-M:IFDB=1ORDB*-1OR<DB>-24RNDDB<-20>OR(DB>20RNDDB<24> THEN2004 

2001 RETURN 

2004 POKE 193.0:1 NPUT " NR. " ; CL 

2005 PR I NT " 3" I FCL< 1 OPCL>9THEN2004 

2006 IFQC«2470RQC*231OROC=1670RQC=70RQC=390RQC=230PCL=9THFNR=1:GOTO2009 
2Q08 R=10-CL+INT(RND< 1 )*< 12-CL V2> 

2009 IFQ=32THENR=R-1 

2012 SC=SC+1 : PR I NT " SWSTSWjfcTsWsfcTiTStSLRG " ; SC 

2014 W=B+R#DB 

2015 P=P.EEK(W) : IFP=360PP=37THENW=U-DB : GOTO2015 
2?20 IFW<77240RW>8163THENW*B: RETURN 

2923 FORX-BTOWSTEPDB:P=PEEK(X> = IFP=230THENU=X-DB:GOTO2025 

2024 NEXT : P=PEEK(W> 

2025 IFW=MTHEN:U*W-1 

2026 POKEV/15 : F0RX=1T02 : POKEV-1,240:NEXT:POKEV-1,0=FORX*0TO200:NEXT 

2027 FORX-220TO220-104RSTEP-2:POKEV-2/X : NEXT ; POKEV,0:POKFV-2.01FP=5THFNGOSUB450 

0 

2028 IFU=MTHEN : W*W-1 

2029 IFP=28THENGOSUB4000=RETURN 

2030 POKEB, 0 : B»W: Q=PEEK(B) : POKES, 0 : POKEBC.QC: BC=B+C : QC=PEEK(BC> = POKEBC . 0 : RETURN 
4000 POKEV,i5=POKEV-1,240 FORX=1T02 : NEXT:POKEV.0 

4005 PRINTTXHHUL NR."H"BRUGTE DU M”SCl"SLAG" : SR=SR+SC 
4010 PRINT" SKBKWnTOTflL "SP"SL8G" : FORX=1TO5000 ; NEXT : RETURN 

4500 PR I NT" VRNDET DU TRBEP ET SLOGS" : SC«SC+1 : W=W-1 

4502 IFW-F+19THENW-W-22 

4505 POKEB,Q : B*W:Q*PEEK(B > : POKEBC,QC : BC=B+C : QC=PEEK(BC > 

4510 FORX* 1TO3000 : NEXT : PR I NT " aWW»W('MflWfl>WrtHWI('Wi'!W')a 

•I 

4515 PRINT"SWriTjWiTiWsTiWiTitSLRG" ;SC:RETURN 

5000 PRINT"aOWBMDU HRR KLRRET 9 HULLERWWED "SR" SLRG" 

5010 IFSR>36THENPRINT"WWWDETTE ER "SR-36"SLRG OVER NORMRLFN" 

5020 IFSR*36THENPRINT" SMWDETTE ER DET NORMRLF" 

5030 IFSRC36THENPRINT"SBWDETTE' ER "36-SR"SLRG UNDER N0RMRLEN" 

5040 RETURN 


Suicide Mission 


Denne gang gcelder del dit 
liv! For nu skal du redde jor- 
den lor de Iryglelige aliens. 
Og det er desvcerre en selv- 
mordsmission - sd ren ikke 
med at du overlever. 

Dette spil har en glimrende 
gralik og hastigheden er utro- 
lig god - styringen (joystick 
Port 1) er der heller intet i vejen 
med. Kort sagt tast dette pro¬ 
gram ind og du vil ikke blive 
skuffet.D 

Morten Middeltart 
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PROGRAM: SUICIDE MISSION.709 

0 P=0:L“7 : A=0■GOSUB 9500 

1 PR I NT" (CLR)" : SPR=0 : POKE V+16,1 

2 PRINT CHR*(5) 

3 PRINT CHR*(142) 

4 A=(RND<1)) 

5 M=INT<H#200)+20 

10 PRINT" /- 


11 PRINT" I POINT:";P; PRINT" LI 

ves:";l; 

12 POKE 1184,66:PRINT:POKE 1222,93 

13 PRINT"'■■■ - - 

14 POKE 2042,14 POKE V+4-M 

:POKE V+5,100:POKE V+21,5 : SPR=70 

15 FOR X=1 TO 320 STEP 5 SPR=SPR-5 
:POKE V,SPR 

16 IF SPR=0 THEN GOSUB 9000 

17 A=PEEK(56321>:IF H=239 THEN 100 

18 NEXT X 

19 U=1944 : H=1945:POKE 1984,32 

POKE 1985,32 GOSUB 9700 

20 FOR X=1 TO 10 

21 POKE H,77:POKE U,78 

22 POKE H+39,32■POKE U+40,32 

23 H=H-39 : U=U-40 

24 NEXT X:GOSUB 9740 

25 L=L-1 : IF L=-l THEN 200 

26 GOTO 1 

100 POKE 2041,13 : POKE V+40,1 
: POKE V+21,7 

110 FOR X=225 TO 100 STEP-5 
120 POKE V+2,SPR:MI=X:POKE V+3,MI 

150 NEXT X 

151 A=M-10 

152 IF SPR>R THEN 2000 
160 POKE 21,0:GOTO 25 

200 PRINT”<CLR)" 

201 FOR X=1 TO 10 PRINT NEXT X 

210 PRINT" GAME OVER" 

220 POKE V+21,0:FOR X=1 TO 500 NEXT X 

230 GOTO 1000 

330 P=P+10 

340 FUEL=FUEL+1 

345 IF FUEL=10 THEN 6000 

350 EX=EX+1 : IF EX=20 THEN GOSUB 10000 

360 GOTO 1 

1000 PRINT"<CLR>" 


1010 IF P>POI 

THEN 

GOSUB 9900 

1020 PRINT" /— 



1025 PRINT" 1 



1030 PRINT" 1 

1 

SUICIDE MISSI 

ON 

104O_PRINT" 1 

1 " 


1050 PRINT"1 


WRITTEN « PROGRAM 

MED BY 



1060 PRINT" 1 



1070 PRINT" 1 


MORTEN MIDDELF 

HPT 

1 " 


1080 PRINT" 1 

1 " 


1090 PRINT v — 

_ 



1100 PRINT 

1101 PRINT 

1110 PRINT" TODAY'S HIGHEST 

1120'PRINT POI 
1130 PRINT 

1140 PRINT" PERFORMED BY 

1150 PRINT NA* 


1160 FOR X=1 TO 8 PRINT NEXT X 
1170 PRINT" PLEASE PRESS FIRE TO 
BEGIN " 

1200 POKE V,1POKE V+2,1 POKE V+4,1 
POKE V+l,200 POKE V+3,200 
:POKE V+5,200 POKE V+21,7 
1210 FOR X=1 TO 200:POKE V+4,X:NEXT X 
1240 FOR X=1 TO 150 : POKE V+2-XNEXT X 
1250 FOR X=1 TO 100 POKE V,X:NEXT X 

1399 A=PEEK(56321) : IF A0239 THEN 13 
99 

1400 FOR X=200 TO 250 POKE V+4,X 
:NEXT X 

1410 POKE V+16,4 

1420 FOR X*1 TO 50 POKE V+4,X NEXT X 
1430 FOR X=200 TO 150 STEP-1 
POKE V+5,X:NEXT X 

1440 FOR X=100 TO 150 : POKE V,X:NEXT X 
1450 FOR X-200 TO 185 STEP-1 
POKE V+3,X : NEXT X 
1460 FOR X=150 TO 250:POKE V,X 
POKE V+2,X:NEXT X 
1465 POKE V+16,7 : FOR X=1 TO 39 
:POKE V,X ; POKE V+2,X:NEXT X 
1470 GOSUB 9700 FOR X=185 TO 1 STEP-1 
:POKE V+3,X:NEXT X:GOSUB 9740 
POKE V+3,185 

1475 FOR X=39 TO 63 POKE V,X 
:POKE V+2,X:NEXT X 

1480 GOSUB 9700 FOR X=185 TO 1 STEP-1 
POKE V+3,X:NEXT X:GOSUB 9740 

1481 POKE V+3,185 FOR X=63 TO 50 STE 
P-1 POKE V+2-X:POKE V,X:NEXT X 

1485 FOR X=135 TO 150 STEP-1 

:POKE V+3,X:NEXT X:POKE V+21,5 
1487 GOSUB 9700 POKE 2042,15 

:FOR X=1 TO 300 NEXT X:POKE V+21,0 
POKE V+21,0 POKE 2042,14 
1500 GOSUB 9740 
1510 FOR X=1 TO 300 NEXT X 

1991 PRINT"(CLR)":POKE V+21,0 
POKE V+16,0 

1992 FOR X=1 TO 10 PRINT NEXT X 

1993 PRINT" ✓-s" 

1994 PRINT" I GET READY I" 

1995 PRINT" '-" 

1999 RESTORE GOTO 0 

2000 MN=M+10 

2001 IF SPRDNN THEN 160 

-•>010 RFM###***FXPI flSTON*********** 
2011 GOSUB 9700 
2020 POKE V+21,5 

2030 POKE 2042,15 FOR X=1 TO 100 
NEXT X 

3000 GOSUB 9740 GOTO 330 

6000 PRINT"(CLR)" : POKE V+21,0 

6001 FOR X=1345 TO 1793 STEP 32 
POKE X,46:NEXT X 

6002 FOR X=1400 TO 1461 STEP 40 
POKE X,46 NEXT X 

6003 FOR X=1024 TO 1160 STEP 15 
POKE X,46 NEXT X 

6010 FOR X=1 TO 21 PRINT NEXT X 
6020 PRINT" 

6030 PRINT" ,■- ' ' - 


6031 PRINT" I LAND ON FUE 

L I" 

6035 SPR=245 
6037 POKE V+21,1 
6040 FOR X=1 TO 200 

6050 POKE V,SPR POKE V+l-X 

6051 A=PEEK(56321) : IF A0255 THEN GO 
SUB 6100 

6060 NEXT X 

6061 U=171R=175 

6070 IF SPR>U THEN 6300 
6080 GOTO 6400 
6100 REM 

6110 IF A=251 THEN 6200 

6111 IF A=247 THEN 6250 
6130 RETURN 

6200 SPR=SPR-1 

6210 IF SPR=15 THEN 6230 

6220 GOTO 6130 

6230 SPR=15 

6240 GOTO 6130 

6250 SPR*SPR+1 

6260 IF SPR=250 THEN 6280 

6270 GOTO 6130 

6280 SPR=250 

6290 GOTO 6130 

6300 IF SPR>R THEN 6400 

6310 PRINT"(CLR)” 

6320 POKE V+21,0:FOR x=l TO 8 PRINT 
NEXT X 


6330 PRINT" YOU LANDED 

6340 PRINT" WERY GOOD. 

6350 PRINT" BONUS 10 X";L 

6360 BQ=L«10:P=P+BO : FOR X=1 TO 1000 
: NEXT X 

6370 GOTO 7000 

6400 POKE 2040,15 GOSUB 9700 

: ‘ POKE V+21,0:PRINT"(CLR)“ 

FOR X=1 TO 10:PRINT:NEXT x 

6401 FOR X=1 TO 500:NEXT X:GOSUB 9740 
POKE 2040,11 POKE 2042,14 

6410 PRINT" SORRY NO BONU 

S" 

6420 L=L-1:IF L=-l THEN 200 
6430 FOR X=1 TO 1000:NEXT X:GOTO 7000 
7000 POKE V+21,5 POKE V+l,225 
:FUEL=0 :GOTO 1 

9000 POKE V+16,0:POKE V+21,5:SPR=250 

9001 SPR=250:RETURN 

9500 FOR X=0 TO 62 READ A 
:POKE 704+X,A:NEXT X 

9501 POKE 2040,11 : POKE 2042,14 
V=53248■POKE V+16,1 

9505 POKE V+l,225 POKE 53281,0 
POKE 53280,0 

9506 FOR X=0 TO 62:READ 3 
POKE 832+X,B : NEXT X 

9507 FOR X=0 TO 62:READ C 
POKE 896+X,C : NEXT X 

9508 FOR X=0 TO 62 READ D 
POKE 960+X,D:NEXT X 

9509 POKE V+39,1 ; POKE V+40,7 
POKE V+41,2 

9510 EX=0: FUEL=0:RETURN 
9515 REM 

9520 DATA 0,24,0,0,60,0,0,121,0,0, 
255,0,0,255,0,0,255,0,0,60,0,0,24, 
0,0,24,0 

9530 DATA 0,60,0,0,60,0,16,60,8,16, 
60,8,16,60,8,16,255,8,19,255,200, 
31,60,248 

9540 DATA 28,60,56,16,60,8,16,60,8,0, 
24,0 
9545 REM 

9550 DATA 0, 0, 0,0, 0, 0,0, 0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0,0 

9560 DATA 0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0,0,24,0,0, 
24,0,0,24,0 
9570 REM 

9530 DATA 0,126,0,0,255,0,1,255,128, 
1,153,128,1,153,128,1,255,128,3, 
255,192 

9590 DATA 7,255,224,15,255,240,47, 
255,248,255,255,255,255,255,255, 
47,255,248,15 

9600 DATA 255,240,7,255,224,3,255, 

192,1,255,128,0,126,0,0,36,0,0, 
231,0 
9610 REM 

9620 DATA 2,4,128,4,0,255,6,32,4,6,2, 
6,31,60,24,24,6,7,3,3,192,2,4,5,0, 
0 , 0 , 0 , 0,0 

9630 DATA 2,4,6,7,7,7,7,3,24,3,24, 
192,3,255,0,0,255,255,255,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0,0 
9640 DATA 0,0,0,0,0,0 

9700 REM**********#**LYD**##*###**#* 
** 

9701 VY=54296:WY=54276:RY=54277 
:HY=54273=LY=54272 

9710 FOR X-21 TO 1 STEP-l:POKE VY,X 
POKE NY,129 POKE AY,15:POKE HY,40 
POKE LY,200 NEXT X 
9720 RETURN 
9730 RETURN 

9740 POKE AY,0:POKE WV,0 
9750 RETURN 
9900 REM 

9910 PR I NT"ENTER YOUR INITIALS. 

H • 

9920'INPUT NA* 

9930 POI=P 

9940 PRINT"(CLR)": RETURN 

10000 PRINT"(CLR)" POKE V+21,0 
10010 FOR X=1 TO 10 PRINT:NEXT X 
10020 PRINT" GREAT!" 

10030 PRINT" 

10040 PRINT" YOU'VE GOT ONE BO 

NUS SHIP!" 

10050 L=L+1 : EX=0 : FOR X=1 TO 1000 
: NEXT X : POKE V+21,5 GOTO 1 
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Morse-trcener 



■ Til aUe folk der trcsnger tU 
licit ovelse i morseallabetet. se 
her. Denne lille program- 
stump til en standard VIC-20 
morser et ord. som si skal 
skrives ned. Programmet ri¬ 
der over et begrcenset ordfor- 
rid. men cendringer i detail- 
lerne giver det nye mulighe- 
der.D 




10 REM COTHOMRS K. 

20 REM MORSER 
35 P0KE36878,15 

40 PR I NT 11 ^********************** MORSE ALFABFTET. ***#*###♦****#*♦*#***##•' 

50 FORU=1T029 : REflDV : NEXTU 

60 V®INT(RND<1>*44>+l•F0RU=1T0V:REftDft*:NEXT:RESTORE 
70 FORR= 1TOLEN i. ft* > 

80 FORB= 1 TORSO < M1 D* < A*. ft. 1 > • -64 READB* NEXT 
90 FORC=1TOLEHCBt> 

100 P0KE36876,128 

110 FORD® 1 TOVflL < MTD*< B* ■ i . 1 »>*100: RESTORE :NEXTU:P0KE36876,0 :FORT® 1TO50 : NEXTT,C 
120 FORR®1TO300:NEXTR,R 
J30 PRTNT"MWHVflD VflR ORPET" 

140 INPUTS* 

150 IFB*=ft*THFNPPT NT" WrtJR PET VflR "ft*:FORM®1TO3000■NEXT:RON 
160 PR I NT " NE.J, DET VflR " fl* FORU* 1TO300O ■ NEXT PI IN 

300 DATA 14.- 4111,4141,411,1 ,1141,441,1111,11, 1444,414, 1411,44,41,444, 1441,4414,14 
1,111,4 

310 DATA 114, 1114, 144,4114,4144,441 1, 1414,4441, 1441.4, HUS . HAVE, SKOV. FER8KEN, SOFT , H 
IJND 

320 DflTflFJERNSVN, COMF1 ITER ■ TE, COMMODORE, SKRB, BORD , STOL . TELEFON. SKUFFF. - SENG, VINDUE 
, KM IV 

330 DflTflKVS,SOS,P hD 10,DANMARK,SVER1GE,USA,PLVANT.PILLFDF,RFOL,fli ITOMAT,PENCE,MRPP 

E.HVLDE 
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Selv om du ikke har en Lamb¬ 
da. kan du faktisk godt bruge 
dette program. Det giver dig 
mulighed for at fd de eksakte 
mdl tor den rette antenne. 
uanset om det er 27. 144 eller 
428 MHz. 


Programmet rummer kanal 
tabeller. sd du ikke behover 
at kende trekvensen pd de 
mest almindelige TV-kanaler 
Programmet er meget ettek- 
tivt. Gunnar Cailsen 


REM ..GUNNAR CARLSEN. 1985. 

REM . .KANAL-ANTENNER. 1985. 

6 PRINT "PROGRAMMET FYLDER “I( 
PEEK 16400+256+PEEK 16401>-173011" 
BYTES" 

10 PRINT AT 5.51 "HER KAN DU BYGG 
E DIN EGEN"iAT 7, 51"KANAL ANTENNE 

20 PRINT AT 9.51"DEN PASSER KUN 
TIL DEN"!AT 11.5!"PAAGAELDENE KAN 
AL. " 

30 PRINT AT 13.51"DEN AFSAETTER 
ALLE"!AT 15. 5I"MAAL I CENTIMETER. 

40 PAUSE 900 
50 CLS 

100 PRINT "VAELG ANTENNE TIL DEN 
PAADAELDENDE KANAL" 

105 PRINT 

110 PRINT "INPUT KANAL NUMMER" 

115 PRINT 

120 PRINT "TV KANAL 2-11" 

130 PRINT "TV KANAL 21-60" 

140 PRINT "ELLER FM 88-108” 

145 PRINT "ANDRE FREK. 1" 




150 INPUT A 

160 IF All AND A<5 THEN LET B=A*7+ 
35 

170 IF A)4 AND A<12 THEN LET B-A*7 
+ 141 

180 IF A>20 AND A<61 THEN LET B“A* 
8+304 

190 IF A) 87 AND A<109 THEN LET B-A 
195 IF A <2 OR A) 11 AND A <21 OR A) 60 
AND A<88 OR A> 108 THEN GOTO 500 
200C=30000/B 
210 CLS 

220 PRINT AT 0.01"MAALENE ER I CE 
NTIMETER. “ 

225 PRINT AT 0. 25 i ” <K. "! A i " > " 

230 PRINT AT 1.0!“REFLEKTOR = "I 
INT <C*0. 51*10)/10iTAB 20!"- 

240 PRINT AT 2.25! “I" 

250 PRINT AT 3.0l"AFSTAND = "i 
INT <C*0.137*10)/10iTAB 25!"I” 

260 PRINT AT 4. 25! "I" 

270 PRINT AT 5.0!"DIPOLEN = "! 
INT <C*0. 47*10)/lOiTAB 20!"-*1* 

280 PRINT AT 6.25!"I" 

290 PRINT AT 7.0!“AFSTAND = “I 
NT <C*0. 115*10)/10iTAB 25! “I" 

300 PRINT AT 8. 0! "1. DIREKTOR = “ ! 
NT <C*0.45*10)/lOiTAB 21!"- 



310 PRINT AT 9.01"BOMLAENGDE ■ 
INT <C*0.37*10)/10!TAB 25!"I" 
320 PRINT AT 10. Oi "AFSTAND 
! I NT <C*0. 18*10)/10!TAB 25!"I" 
330 PRINT AT ll,25l"I" 

340 PRINT AT 12. Oi "2. DIREKTOR 
!INT <C*0.44*10)/lOiTAB 21!"- 

350 PRINT AT 13. Oi"AFSTAND 
• INT <C*0. 13*10)/10ITAB 25!"I" 
360 PRINT AT 14. 01 "3. DIREKTOR 
! INT <C*0. 44*10)/10iTAB 21!"- 


370 PRINT AT 15. 0!"BOMLAENGDE = 

!INT <C*0.67*10)/10!TAB 25!"I" 

380 PRINT AT 16. 0!"AFSTAND 
!I NT <C*0.16*10)/10iTAB 25!"I" 

390 PRINT AT 17. Oi "4. DIREKTOR « 

!INT <C*0.44*10)/lOiTAB 21!"- 


400 PRINT AT 18. 25!"I" 

410 PRINT AT 19.Oi"AFSTAND 
! INT <C*0.15*10)/lOiTAB 25i“1“ 
420 PRINT AT 20. 0! "5. DIRDKTOR 
i INT <C*0.44*10)/10ITAB 21!"- 


430 PRINT AT 21. Oi"BOMLAENGDE = “ 
"INT <C*0.97*10)/10ITAB 25! "I" 

450 PAUSE 65000 

460 CLS 

470 GOTO 100 

480 SAVE " ANTENNE r" 

490 RUN 
500 CLS 

510 PRINT ...."SKAL DU BRUGE EN 
ANDEN FREKVENS <J/N)“ii 
520 IF INKEY*="J" THEN GOTO 550 
530 IF INKEY*="N“ THEN GOTO 50 
540 GOTO 520 

550 PRINT "INKOD I MHZ. <KHZ/100 

0 ). ” 

560 INPUT B 
570C=30000/B 
580 CLS 

590 PRINT Bi" MHZ. "iINT <C*10)/1 
Oi” CENTIMETER = 1 BL. ” 

600 GOTO 230 
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■ Du skat iorhindre de tjendt- 
lige styrker i at sende deres 
tanks over dine tinier. Dette 
iorhindrer du ved at bruge 
din mobile kanon nederst pd 
skcermen. Points bliver regnet 
ud efter. hvor hurtigt du ram¬ 
mer den. og hvad tarve tan- 
ken har. Du styrer tanken 
med 1 lor venstre. 2 lor hojre 
og 0 lor at skyde. God fornoj- 
else.D Michael Mondrop__ 


Z,,/7/MM 




•a" +7 : 


30 LET HS=0: LET SC=0 
4-0 FOR I=USR "A* Tg 1JSR 
BEAD O: POKE NEXT X . .* 

50 DATA 

J , 60 , U , 126 , £s5 112/ 'J '. 

4.0 , U , 112,0 , J , U , 1 , J 

?I2; ili!S: 

■ ■ 1 ; -i- j ina c- 

LS 

80 GO SUB 900 
90 LET A* = " 


INK COL; 


BEEP 


0 


100 FOR PRINT 

NEXT I , 

120 LET X =29: LET LI=5: LET SC = 


220 PRINT RT 21,Xj INK 
260 IF INKEYf="0" THEN PBINTf 
fi ,B; "•" AND A^4=INT <fl;£4-i. fi ND 
< >0; " AND (ft/4. < >INT 


130 LET R=0: LET B=0. LET P=0: 
LET 0=0 

ill print B at 0/0; INK S;"LIUES* 

210 LET^X =X + <XNKEY$="2" RND X<2 
9) - tINKEY*="1" RND X>0> ....... 

--Nf rt 2i t x;_iNK ZLj&frr 

R 
Ft 

-0)'- LEt”r=20V' LET - ’b=X + i’: PRINT 

Isll j"SS-Sg* N < > 2 ° 

T 330 PRINT*RT A,E;A*. LET R*=" " 

34-0 lEX PsR“1 

350 IF R =P RND B>=0 RND B<=0+3 

THEN GO TO 800 _ . 

360 PRINT RT A,B; INK 7;"I’ . 

370 IF R=0 THEN PRINT RT A,B, 


735 PRUSE S 
740 PRINT RT P-1,0; 

RT P , 0; "3^“ 

745 PAUSE 5 
790 RETURN 

800 FOR 1=20 TO 50 STEP 2. 
.015,1: NEXT I 
805 LET SC=SC+AB0* fCOL-3.> 

810 PRINT RT P-l^flL" ..—"'57, 

... rt P + i, O; RN 

29 

820 LET R=0 
845 GO TO 150 

850 PRINT AT P-1,0; INK CCU.;" J 
»";RT P,©;" 

852 PRUSE 5 „ 

855 PRINT RT P-1,©; INK COL; 
j"; RT P,©;“ *“ 

857 PRUSE 5 

860 PRINT RT P-1,31;" ";RT P,31 


P,© 

RND £>< 


—2: BE 


865 FOR 1=20 TO -lO STEP 
EP .015,1: NEXT I 
870 LEf LI=LI—1: IF LI=0 THEM G 
O TO 80 
895 GO TO 150 

910 INK 2: CLS _____ __ 

920 PRINT AT 0 , , RT 


1000 PRINT RT 8,8 
REL MONDRUP” 

1010 FOR 1=20 TO 50 STEP 
P .001,1: NEXT I 
1030 IF SC)HS THEN LET HS=SC 


INK &; “t& MICH 
. 4: BEE 


410 IF 0=29 THEN GO TO 350 
420 PRINT RT P-1,©;" ";RT P,© 


1040 IF SC>0 THEN PRINT PAPER 5; 

INK 0; RT 11,0; "YOUR SCORE ";SC; 
TAB 17;“BEST SCORE ";HS 
1050 FOR 1=0 TO 3: pfclNT INK 1+4 
; RT 14,1*7+4; " Jf AT 15,1*7 + 4;" 


& 


430 LET 0=0+1 

440 PRINT RT P-1,0; INK COL; A 

s’"; at p,o;“«n*" 

490 GO TO 200 

700 LET P=4*(INT (RND+4)+1J-1: 
LET 0=0 

710 LET COe=B-/INT fPY*+l.».» 

730 PRINT RT P-1,0; INK COL; S’ 

; RT P . 0 : 


_ NEXT I 

1060 PRINT PAPER 6; INK 0;RT 17, 
4;"100";TAB 11;"200";TAB 13;"300 
";TAB 25; “400“ 

1100 PRINT RT 20,0; INK 7;"1.... 
LEFT 2....RIGHT 0....FIRE" 

1140 PRINT »0;RT 1,5; INK 4; FLA 
SH 1;"PRESS AMY KEY TO PLAY" 

1160 IF INKEY # = "“ THEN GO TO 116 
0 

1170 CLS 
5000 RETURN 
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Kalaha 

computer 



■ Dette program laver din 
Commodore 64 om til en ka- 
laha-computer. Programmet 
tegner kalahaplanen pd 
skcermen, hvorefter du blot 
indtaster, hvortra du tager 
•kugler«, og computeren be- 
regner resten. Programmet er 
selvtorklarende og har iovrigt 
en pcen gratik, med en ha- 
stighed absolut i top.D 

Finn Andersen 


PROGRAM' KALAHA.UNR 

1 REM KALAHA.MIT F0RSTE RIGTIGE PROG 

RAM 

2 REM 

3 REM ****************************** 

*** 

4 REM ******** ***** 

*** 

3 REM ******** FINN ANDERSEN ***** 
*** 

6 REM ******** ***** 

*** 

7 REM ****************************** 

*•* 

8 REM 

9 POKE 33280/2 : POKE 33281,2 

PRINT"(CLR)" 

10 M1 =6= M2=6: M3=6 • M4=6: M3-6 • M6=6 ■ MK=0 
20 Dl=6 : D2-6:D3=6'D4=6:D3=6:D6-6 = DK«0 
30 Q=0 

499 REM **************************** 
*** 

500 GOTO 6000 

510 PRINT•PRINT"(HOME, 

GRAA3) /--, ,-> ,-s ,-> 

520 PRINT” I II II II I 

I II I"; 

530 PRINT" KCRSR H0JRE3) KCRSR H0JRE 
2) KCRSR H0JRE3) KCRSR H0JRE2) KC 
RSR H0JRE3) KCRSR H0JRE2) KCRSR H 
0JRE3) KCRSR H0JRE2) KCRSR H0JRE3 
> KCRSR H0JRE2) KCRSR H0JRE3) I"; 
540 PRINT" I I I I I I I I 

I II I"; 

550 PRINT" '-• '-' '- ' '-' 

560 PRINT" Ml M2 M3 M 4 
M3 M 6" : PRINT : PRINT 
570 PRINT" ,-, 


380 PRINT" I I 

I i"; 

390 PRINT" KCRSR H0JRE10) KCRSR H0JR 
E16) KCRSR H0JRE10) I"; 

600 PRINT"I I 

I l"J 

610 PRINT" '-' 

620 PRINT" M K 

D K" PRINT PRINT 

630 PRINT" ,-, , -, /-, ,-. 

640 PRINT-1 I l' I I II I 
I I I r; 

630 PRINT" KCRSR H0JRE3) KCRSR H0JRE 
2) KCRSR H0JRE3) KCRSR H0JRE2) KC 
RSR H0JRE3) KCRSR H0JRE2) KCRSR H 
0JRE3) KCRSR H0JRE2) KCRSR H0JRE3 
) KCRSR H0JRE2) KCRSR H0JRE3) I", 

660 PRINT" I I I I I I I I 

I II r; 

670 PRINT"'-' '-' '-' '-' 

680 PRINT" D 6 D3 D4 D3 
D 2 D 1" 

690 PRINT"(HOME,CRSR H0JRE, 

CRSR NED2)"M1"(CRSR VENSTRE, 
SPACE)" 

700 PRINT"(HOME,CRSR H0JRE, 

CRSR NED18)"D6"(CRSR VENSTRE, 
SPACE)" 

710 PRINT"(HOME)“ : PRINT TAB(8)M2"(CR 
SR VENSTRE-SPACE)" 

720 PRINT"(HOME,CRSR NED16)" 

PRINT TAB(S)D5"(CRSR VENSTRE, 
SPACE)" 

730 PRINT"(HOME)"PRINT TAB(15)M3"(C 
RSR VENSTRE,SPACE)" 

740 PRINT"(HOME,CRSR NED16)" 

• PRINT TAB( 13)D4 11 (CRSR VENSTRE, 
SPACE)" 

750 PRINT"(HOME)"PRINT TAB(22)M4"(C 


RSR VENSTRE,SPACE)" 

760 PRINT"(HOME,CRSR NED16)“ 

PRINT TAB<22)D3"(CRSR VENSTRE, 
SPACE)" 

770 PRINT"(HOME)" PRINT TAB(29)M3"(C 
RSR VENSTRE,SPACE)" 

780 PRINT"(HOME,CRSR NED16)” 

PRINT TAB(29)D2"(CRSR VENSTRE, 
SPACE)" 

790 PRINT"(HOME)"-PRINT TAB(36)M6"(C 
RSR VENSTRE,SPACE)" 

800 PRINT"(HOME,CRSR NED16)" 

: PRINT TAB(36)D1"(CRSR VENSTRE, 
SPACE)" 

810 PRINT"(HOME,CRSR NED10)"TAB(4)MK; 

TAB(32)DK 
820 X=X-1-RETURN 

999 REM***************************** 
*** 

3998 REM *************************** 
*** 

3999 REM *************************** 
*** 

5000 D6=D6+1 : GOSUB 510 
; IF X=0 THEN RETURN 
5002 D5=D5+1 : G0SUB 310 
:IF X=0 THEN RETURN 
5004 D4=D4+1 : GOSUB 510 
IF X=0 THEN RETURN 
5006 D3*D3+I : GOSUB 510 
IF X*0 THEN RETURN 
5008 D2=D2+1-GOSUB 510 
: IF X=0 THEN RETURN 
5010 D1=D1+1 : GOSUB 510 
IF X-0 THEN RETURN 
3011 IF Q*1 THEN 5014 
5012 DK»DK+1 GOSUB 510 
:IF X=0 THEN RETURN 
5014 M6=M6+1 GOSUB 510 
:IF X=0 THEN RETURN 
3016 M5=M5+1 : GOSUB 510 
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IF X*0 THEN RETURN 
3018 M4=M4+1:GOSUB 310 
IF X«0 THEN RETURN 
5020 M3=M3+1 : GOSUB 510 

• IF X»0 THEN RETURN 

5022 M2=M2+1 ; GOSUB 310 
IF X=0 THEN RETURN 

5024 M1=M1+1 : GOSUB 510 
:IF X-0 THEN RETURN 

5023 IF Q=2 THEN 3000 
3026 MK-MK+i:OOSUB 510 

:IF X=0 THEN RETURN 
3030 GOTO 5000 

5050 REN ***•**•*•****•**•**•••**•*• 
*** 

5060 REM *************************** 

6000 IF Q=1 THEN GOSUB 510 
■GOSUB 10000 ; GOTO 7000 
6010 IF 0=2 THEN GOSUB 510 
GOSUB 10050 GOTO 8000 
6020 PRINT"(CLR,GR0N,RVS ON, 

CRSR NED 8 ,CRSR H0JRE3,SPRCE, 

CRSR H0JRE5,SPRCE4,CRSR H0JRE2, 
SPHCE,CRSR H0JRE5,SPHCE4, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE2,SPHCE4)" 

6030 PRINT”(RVS ON,CRSR H0JRE3,SPHCE, 
CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPHCE,CRSR H0JRE5, 
SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPHCE)" 

6040 PRINT"<RVS ON, CRSR H0JRE3,SPHCE, 
CRSR H0JRE, SPHCE,CRSR H0JRE3, 
SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPHCE,CRSR H0JRE5, 
SPHCE,CRSR H0JRE2,SPRCE, 

CRSR H0JRE2, SPHCE, CRSR H0JRE2, 
SPHCE-CRSR H0JRE2,SPRCE, 

CRSR H0JRE2,SPACE)” 

6050 PRINT”(RVS ON,CRSR H0JRE3, 

SPHCE2,CRSR H0JRE4,SPHCE, 

CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE5,SPACE, 

CRSR H0JRE2-SPHCE,CRSR H0JRE2, 
SPHCE4,CRSR H0JRE2- SPACE- 
CRSR H0JRE2,SPHCE)” 

6060 PRINT”(RVS ON,CRSR H0JRE3, 
SPHCE2-CRSR H0JRE4,SPHCE4, 

CRSR H0JRE2,SPHCE,CRSR H0JRE5, 
SPHCE4,CRSR H0JRE2,SPHCE- 
CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE4)“ 

6070 PRINT"(RVS ON,CRSR H0JRE3,SPACE, 
CRSR H0JRE,SPHCE,CRSR H0JRE3, 

SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPACE,CRSR H0JRE5, 
SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE2-SPHCE, 

CRSR H0JRE2.SPHCE)" 

6080 PRINT"(RVS ON,CRSR H0JRE3,SPHCE, 
CRSR H0JRE2,SPHCE,CRSR H0JRE2, 
SPHCE,CRSR H0JRE2,SPHCE, 

CRSR H0JRE2,SPHCE4.CRSR H0JRE2, 
SPHCE,CRSR H0JRE2,SPACE, 

CRSR H OJRE2,SPACE,CPSR HO JRE2, 
SPACE. CRSR H0JRE2, SPHCE, 

CRSR H0JRE2,SPHCE)" PRINT PRINT 

• PRINT•PRINT 

6090 INPUT" (HVID, SPHCE3)0NSKES SPILL 
E REGLER (J/N) ”;S* 

6100 IF S*=”N"THEN 6470 
6110 IF S*<>"J"THEN 6000 
6150 PRI NT”(CLR,GUL,SPHCE14)SPILLERE 
GLER” 

6160 PRINT”(BLHfi,SPHCE14) 


SPHCE2)DU SKHL PR0VE HT FHfi FLERE 
KUGLER I ■; 

6180 PRINT” DIN KHLHHH (D K) END JE 
G FRHR I MIN. " 

6190 PRINT" DE FELTER DU KRN TRGE K 
UGLER FRH ER ”; 

6200 PRINT” MHERKET MED 'D' OG ET T 
HL. NRRR JEG •; 

6210 PRINT” SP0RGER OM DIT NHESTE T 
RHEK SKHL DU ■; 

6220 PRINT" KUN INDTHSTE THLLET PAR 
DET FHELT DU "i 

6230 PRINT” 0NSKER HT THGE FRH, 

SHfi ORDNER JEG ■; 

6240 PRINT” RESTEN. 


6250 PRINT” NHHR JEG TRGER KUGLER 0 
P FRH DET FELT 
6260 PRINT” DU HNVISER MIG, 

SHfi GfiRR JEG MOD URET ”; 

6270 PRINT” OG LREGGER EN KUGLE I H 
VERT HF DE EF- ”; 

6280 PRINT" TERF0LGENDE RUM, 

INDTIL HLLE KUGLERNE 
6290 PRINT” JEG TOG OP ER LHQT I NV 
E RUM. 


6300 PRINT" HVIS DEN SIDSTE KUGLE B 
LIVER LHGT I ■; 

6310 PRINT” KHLHHHEN, 

HHR MHN LOV TIL HT THGE ET "; 
6320 PRINT” NVT SHET KUGLER OP. (SH 
fi SP0RGER JEG ”; 

6330 PRINT" IGEN).” 

6340 PRINT”(GUL,SPHCE14, 

RVS ON)TRVK EN THST(RVS OFF)" 

6350 GET W* IF U*=”"THEN 6330 
6360 PRINT”(CLR,CRSR OP)" 

: PRINT"(HVID,SPHCE2)HVIS DEN SIDS 
TE KUGLE BLIVER LHGT I 
6370 PRINT" DET RUM HVOR JEG TOG BU 
NKEN OP, FRHR ■; 

6380 PRINT” DU TILDELT KUGLEN PLUS 
HLLE DE KUGLER 

6390 PRINT" DER FINDES I MIT FELT L 
IGE OVERFOR. DE”, 

6400 PRINT" BLIVER HLLE LHGT I DIN 
KflLRHfl" 

6470 INPUT"(SORT,CRSR NED4, 

SPHCE2)HVEM SKHL FORRESTEN BEGVND 
E (D/M) ";h* 

6480 IF H*="D"THEN 0*2 : PRINT"(CLR)" 

: GOTO 6000 

6490 IF H$=“M"THEN 0=1 PRINT”(CLR>" 
•GOTO 6000 
6495 GOTO 6360 

6998 REM *************************** 
*** 

6999 REM *************************** 

*«• 

7000 IF Hl=13 THEN X=13M1=0 

:GOSUB 5026:MK=MK+M1+D6 M1=0'D6=0 
GOSUB 510 0=2 GOTO 6000 
7002 IF Ml=l THEN X=1 M1=0 : GOSUB 5026 
Q=1 : GOTO 6000 

7004 IF M2=13 THEN X=13 M2=0 

:GOSUB 5024:MK=MK+M2+D5•M2=0 D5=0 
: GOSUB 510 Q=2 : GOTO 6000 
7006 IF M2=2 THEN X*2:M2=0 GOSUB 5024 
: Q*1 : GOTO 6000 

7008 IF M3=13 THEN X=13M3=0 

: GOSUB 5022: MK=MK+M3+D4 M3=0 •' D4=0 
GOSUB 510 0=2 GOTO 6000 
7010 IF M3=3 THEN X=3M3=0 : GOSUB 5022 
Q*1G0T0 6000 

7012 IF M4=13 THEN X=13M4*0 

•GOSUB 5020 MK=MK+M4+D3:M4=0 D3=0 
: GOSUB 510 0*2 GOTO 6000 
7014 IF M4=4 THEN X*4 M4=0 GOSUB 5020 
0=1 GOTO 6000 

7016 IF M5*13 THEN X=13M5=0 

•GOSUB 5018-MK=MK*M5+D2M3=0D2=0 
GOSUB 510-0=2 GOTO 6000 
7018 IF M3*5 THEN X=5 M5=0•GOSUB 5018 
0=1 : GOTO 6000 

7020 IF M6=13 THEN X=13M6=0 

GOSUB 3016 : MK=MK+M6+D1 ; M6=0: D1=0 
GOSUB 510:0=2 GOTO 6000 
7022 IF M 6=6 THEN X* 6 : M6=0 : GOSUB 5016 
0=1 GOTO 6000 


7024 IF Ml=14 THEN 


GOSUB 5026 


7026 IF M2*15 THEN 


GOSUB 5024 


7028 IF M3=16 THEN 


:GOSUB 5022 


7030 IF M4*17 THEN 


GOSUB 5020 


7032 IF M5=18 THEN 


:GOSUB 5018 


6170 PRINT : PRINT"(HVID, 


7034 IF M6=19 THEN 


:GOSUB 5016 


0=1 


0=1 


Q=1 


0=1 


0=1 


0=1 


X=14 

GOTO 

X*13 

GOTO 

X=16 

GOTO 

X*17 

GOTO 

X=18 

GOTO 

X*19 


M1=0 

6000 

M2=0 

6000 

M3=0 

6000 

M4=0 

6000 

M5=0 

6000 

M6=0 


GOTO 6000 


7036 IF Ml=27 THEN X=27M1=0 
•GOSUB 50260=1 GOTO 6000 
7038 IF M2=28 THEN X=28: M2=0 
GOSUB 5024 : 0=1 : GOTO 6000 
7040 IF M3=29 THEN X=29 M3=0 
GOSUB 5022 0=1 GOTO 6000 
7042 IF M4=30 THEN X=30J14=0 
GOSUB 5020 : Q=1'GOTO 6000 
7044 IF M5=31 THEN X=31 N15=0 
GOSUB 5018:Q=1-GOTO 6000 
7046 IF M6=32 THEN X=32 116=0 
GOSUB 5016 : 0=1 GOTO 6000 
7048 IF D6=13 THEN X=M1=M1=0 
: GOSUB 5026 0=2 GOTO 6000 
7050 IF D5=13 THEN X=M2M2=0 
GOSUB 5024•0=2:GOTO 6000 
7052 IF D4=13 THEN X=M3M3=0 
: GOSUB 5022 0=2 : GOTO 6000 
7054 IF D3=13 THEN X«M4=M4=0 
GOSUB 3020 0=2 : GOTO 6000 
7056 IF 02=13 THEN X=M5M5=0 
GOSUB 5018 0=2:GOTO 6000 
7058 IF 01 = 13 THEN X=M 6 M6=0 
:GOSUB 3016Q=2GOTO 6000 
7060 IF Ml>14 THEN X=M1'M1=0 
:GOSUB 5026:0=2:GOTO 6000 
7062 IF M2>13 THEN X=M2M2=0 
GOSUB 5024 : 0=2 •'GOTO 6000 
7064 IF M3>16 THEN X=M3'M3=0 
:GOSUB 5022 0=2:GOTO 6000 
7066 IF M4>1? THEN X=M4M4=0 
:GOSUB 5020 0=2:GOTO 6000 
7068 IF M5>18 THEN X»M5:M5=0 
GOSUB 5018:0=2:GOTO 6000 
7070 IF M6>19 THEN X=M6M6=0 
GOSUB 5016:0=2:GOTO 6000 
7072 IF M6C10 RND M6>0 THEN X=M 6 M6=0 
GOSUB 5016 0=2:GOTO 6000 
7074 IF M5<10 RND M5>0 THEN X=M5M5=0 
:GOSUB 5018 Q=2:GOTO 6000 
7076 IF M4<10 AND M4>0 THEN X=M4 M4=0 
:GOSUB 5020:Q=2:GOTO 6000 
7078 IF M3C10 HND M3>0 THEN X=M3:M3=0 
GOSUB 5022:0=2:GOTO 6000 
7080 IF M2C10 AND M2>0 THEN X=M2:M2=0 
:GOSUB 5024:Q=2:GOTO 6000 
7082 IF Ml<10 HND M1>0 THEN X=M1:M1=0 
:GOSUB 5026:Q=2:GOTO 6000 
7084 IF Ml>13 THEN X=M1=M1=0 
GOSUB 5026 0=2:GOTO 6000 
7086 IF M2>13 THEN X=M2M2=0 
:GOSUB 5024:0=2:GOTO 6000 
7088 IF M3>13 THEN X=M3:M3=0 
:GOSUB 5022:0=2:GOTO 6000 
7090 IF M4>13 THEN X=M4:M4=0 
GOSUB 5020:0=2 GOTO 6000 
7092 IF M5>13 THEN X=M5:M5=0 
GOSUB 5018:Q=2:GOTO 6000 
7094 IF M6>13 THEN X=M 6 M6=0 
GOSUB 5016:0=2 GOTO 6000 
7096 IF M1>0 THEN X=M1:M1=0 
GOSUB 5026:0=2:GOTO 6000 
7098 IF M2>0 THEN X=M2M2=0 
:GOSUB 5024:0=2:GOTO 6000 
7100 IF M3>0 THEN X=M3M3=0 
GOSUB 5022 0=2:GOTO 6000 
7102 IF M4>0 THEN X=M4M4=0 
GOSUB 5020:0=2:GOTO 6000 
7104 IF M5>0 THEN X=M5 M5=0 
GOSUB 5018 0=2:GOTO 6000 
7106 IF M6>0 THEN X=M6:M6=0 
GOSUB 5016 0=2: GOTO 6000 
7150 GOTO 10500 

8000 IF D1=0 RND D2=0 HND D3=0 HND D 
4=0 HND D5=0 HND D6=0 THEN 10500 

8001 IF P*=”1"HND Dl=l OR Dl=14 OR D 
1=27 THEN X=D1 D1=0:GOSUB 5012:0=2 

GOTO 6000 

8002 IF P*="1"RND Dl=13 THEN X=D1 
D1=0:GOSUB 5012 : DK=DK+M6+1:D1=0 

:M6=0:Q=1:GOTO 6000 
8004 IF P*="1"AND D1>0 THEN X=D1:D1=0 
GOSUB 50120=1 GOTO 6000 
8006 IF P*“"2"HND D2=2 OR D2=15 OR D 
2=28 THEN X=D2:D2=0:GOSUB 5010:0=2 
GOTO 6000 

8008 IF P*=”2"HND D2=13 THEN X=D2 
D2=0:GOSUB 5010 DK=DK+M5+1 : D2=0 
M5=0:0=1 GOTO 6000 

8010 IF p$*"2"RND D2>0 THEN X=D2 D2=0 
GOSUB 5010 0=1 GOTO 6000 
8012 IF P*="3"HND D3=3 OR D3=16 OR D 
3=29 THEN X=D3:D3=0:GOSUB 5008 Q=2 
GOTO 6000 

8014 IF P$="3"HND D3=13 THEN X=D3 
D3=0:GOSUB 5008 : DK=DK+M4+1 : D3=0 
M4=0:0=1 GOTO 6000 

8016 IF P*="3"HND D3>0 THEN X=B3:D3=0 
GOSUB 500S : 0=1:GOTO 6000 
8018 IF P$="4"HND D4=4 OR D4=17 OR D 
4=30 THEN X=D4:D4=0:GOSUB 5006:0=2 
; GOTO 6000 
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3020 IF Pf ="4"AND 114=13 THEN X=B4 
; D4=0: GOSUB 5006 • DK=BK+M3+1 - D4=0 
: M3=0' (3=1 : GOTO 6000 
3022 IF PJ="4"AND B4>0 THEN X=D4D4=0 
•GOSUB 50060=1 : GOTO 6000 
8024 IF P$="5"AND B5=5 OR B5=13 OR D 
5=31 THEN X=D5 : D5=0'GOSUB 5004 0=2 
: GOTO 6000 

8026 IF P$="5"ANB D5=13 THEN X=D5 
D5=0 : GOSUB 5004BK=BK+M2+1 D5=0 
:M2=0 0=1iGOTO 6000 
8028 IF P*="5"AND D5>0 THEN X=B5 D5=0 
•GOSUB 5004 0=1 GOTO 6000 
8030 IF P*="6"ANB B6=6 OR D6=19 OR B 
6=32 THEN X=B6 B6=0 GOSUB 5002 0=2 
: GOTO 6000 

8032 IF P*="6"ANB B6=13 THEN X=D6 
: B6=0 : GOSUB 5002BK=BK+M1+1 B6=0 
M1=0Q=1-GOTO 6000 

8034 IF P*="6"AND B6>0 THEN X=B6:D6=0 
GOSUB 5002 0=1 GOTO 6000 
8500 GOTO 6000 

10000 PR INT"(HOME.SORT.CRSR NEB22, 
SPACE13)BET ER MIN TUR 

10002 PRINT” 

10006 GOSUB’510 RETURN 
10050 PRINT"(HOME. SORT,CRSR NED22)"; 
10052 INPUT" BET ER BIN TUR INBTRS 
T BIT VALG ”:Pi 

10054 PRINT"(CRSR 0P5)" 

10055 IF P$="1"OR P*=”2"0R P$="3"0R 
p*="4"0R Pi="5"0R P$="6"THEN RETU 
RN 

10070 GOTO 10050 

10500 BK=BK+B1+B2+B3+B4+D5+B6 B1=0 
• B2=0: B3=0 • B4=0 ■’ B5=0 B6=0 
10510 MK=MK+M1+M2+M3+M4+M5+M6:M1=0 
■M2=0:M3=0:M4=0•M5=0:M6=0 
10520 GOSUB 510 
10525 X=0 

10530 X=X+1 IF X=50 THEN 10550 

10540 GOTO 10530 

10550 PRINT"(CLR.GUL,RVS ON. 

CRSR NEB2.CRSR H0JRE.SPACE4, 

CRSR H0 JRE, SP ACE4,CRSR H0JRE, 
SPACE4,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE4,SPACES, 

CRSR H0JRE,SPACE4.CRSR H0JRE, 

SPACE3,CRSR H0JRE2)“; 

10560 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE,CRSR H0JRE4,SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE5,SPACE,CRSR H0JRE2, 
SPACE.CRSR H0JRE2,SPACE, 

CRSR H0JRE2, SPACE, CRSR H0JRE3)"; 
10570 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE,CRSR H0JRE4,SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE2, 
SPACE.CRSR H0JRE,SPACE, 

CRSR H0JRE5,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE3)",' 
10580 PRINT"(RVS ON,CRSR H0JRE, 

SPACE4,CRSR H0JRE,SPACES, 

CRSR H0JRE2,SPACE4,CRSR H0JRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE5, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2. 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE)"; 

10590 PRINT"(RVS ON,CRSR HO JRE• 
SPACE2-CRSR H0JRE3,SPACE. 

CRSR H0JRE7,SPACE,CRSR H0JRE, 

SPACE-CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE5. 
SPACE,CRSR H0JRE2,SPACE4, 

CRSR H0JRE2,SPACE,CRSR H0JRE3V, 
10600 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE7,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE5,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE3)"; 
10610 PR INT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE4,CRSR H0JRE,SPACE4, 

CRSR H0JRE,SPACE4-CRSR H0JRE- 
SPACE4-CRSR H0JPE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE, SPACE,CRSR H0JRE)"; 
10700 IF MIOBK THEN GOTO 30000 
10800 IF MK=BK THEN GOTO 40000 


20000 PRINT"(BLAA,RVS ON,CRSR NEB2, 
CRSR H0JRE2,SPACE3,CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE3,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE.SPACE4, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR H0JRE,SPACE3, 

CRSR H0JRE2,SPACE3,CRSR H0JRE3)",' 

20010 PRINT"(RVS ON,CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JPE, SPACE, CRSR H0JRE2, 
SPACE,CRSR H0JRE3,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE• 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE2,CRSR H0JRE, 

SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE4V, 

20020 PRINT"(RVS ON,CRSR H0JRE2, 

SPACE,CRSR H0JRE2.SPACE, 

CRSR H0JRE,SPACE.CRSR H0JRE2. 
SPACE,CRSR H0JRE3,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE2,CRSR HOJRE, 
SPACE,CRSR HOJRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2. 
SPACE,CRSR H0JPE4)"; 

20030 PRINT"(RVS ON.CRSR H0JRE2, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE-SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE3,SPACE, 

CRSR H0JRE2,SPACE-CRSR HOJRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE-SPACE,CRSR H0JRE, 

SPACE2,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE4)"; 

20040 PPINT"(RVS ON,CRSR H0JRE2, 
SPACE,CRSR H0JPE2,SPACE, 

CRSR HOJRE,SPACE,CRSR H0JRE2. 

SPACE.CRSR HO JPE8.SPACE. 

CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE4-CRSR H0JRE.SPACE, 

CRSR H0JRE,SPRCE2-CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE4)”; 

20050 PRINT”<RVS ON,CRSR H0JRE2, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE4,SPACE2, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR HOJRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE4)", 

20060 PRINT"(RVS ON,CRSR H0JRE2, 
SPACE3,CRSR H0JRE2,SPACE4, 

CRSR H0JRE41I(RVS OFF)I(RVS ON, 
CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR HOJRE-SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE. 
SPACE3,CRSR H0JRE3,SPACE, 

CRSR H0JRE4)”j 

20100 GOTO 50000 

30000 PRINT"(BLAA,RVS ON,CRSR NEB2, 
SPACE4,CRSR H0JRE,SPACE4, 

CRSR H0JRE,SPACE4,CRSR H0JRE3, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPRCE4,CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE. 

CRSR H0JRE,SPACE3,CRSR H0JRE2, 
SPACE3)"; 

30010 PRINT"(RVS ON,CRSR H0JRE3, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE3,SPACE, 

CRSR H0JRE2,SPACE,CRSR HOJRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE2,CRSR H0JRE, 

SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE, CRSR H0JREV; 

30020 PRINT"(RVS ON,CRSR H0JRE3, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE6, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR HOJRE,SPACE2, 

CRSR H0JRE,SPACE,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE)“i 

30030 PRINT"(RVS ON,CRSR H0JRE3, 
SPACE,CRSR H0JRE,SPACE3, 

CRSR H0JRE2,SPACE,CRSR H0JRE6, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE,SPACE,CRSR H0JRE, 
SPACE2,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2/ 
SPACE,CRSR H0JRE)"; 


30040 PRINT"(RVS ON,CRSR H0JRE3, 
SPACE,CRSR H0JRE-SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE, 
SPACE2,CRSR H0JRE3,SPACE- 
CRSR H0JRE2-SPACE,CRSR H0JRE, 
SPACE4,CRSR H0JRE,SPACE, 

CRSR H0JRE,SPACE2,CRSR H0JRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE )“i 

30050 PRINT"(RVS ON,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE,CRSR H0JRE4,SPACE, 

CRSR H0JREZ,SPACE,CRSR H0JRE4, 
SPACE2, .CRSR H0JRE2, SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR HOJRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE2-SPACE, 

CRSR H0JRE)"; 

30060 PRINT"(RVS ON,CRSR H0JRE, 

SPACE2,CRSR H0JRE2-SPACE4, 

CRSR H0JRE, SPACE4, CRSR H0JRE41KR 
VS OFF>1(RVS ON,CRSR H0JRE2,SPACE, 
CRSR H0JRE2,SPACE,CRSR HOJRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR HOJRE,SPACE3,CRSR H0JRE3, 
SPACE.CRSR H0JRE)"; 

30100 GOTO 50000 

40000 PRINT"(BLAA,RVS ON,CRSR NED2, 
CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR H0JRE,SPACE4, 

CRSR H0JRE,SPRCE4,CRSR H0JRE, 
SPACE4.CRSR H0JRE-SPACE4, 

CRSR H0JRE,SPACE4,CRSR H0JRE, 
SPACE4,CRSR HOJRE,SPACE3, 

CRSR H0JRE)”; 

40010 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2-SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE4, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE4,SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE2)"; 

40020 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE4, 
SPACE,CRSR H0JRE7,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2- 
SPACE,CRSR H0JRE2)"; 

40030 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2,SPACE,CRSR HOJRE, 

SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE, SPACE3, CRSR H0JRE2, 
SPACE,CRSR H0JRE7,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR H0JRE,SPACE4, 

CRSR H0JRE2,SPACE,CRSR H0JRE2V; 

40040 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR H0JRE2, SPACE, CRSR HO JRE, 
SPACE4.CRSR H0JRE,SPACE, 

CRSR H0JRE4,SPACE,CRSR HOJRE, 
SPACE2,CRSR H0JRE4,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 

SPACE,CRSR HOJRE,SPACE2, 

CRSR H0JRE4,SPACE,CRSR H0JRE2)"; 

4OO50 PRINT"(RVS ON,CRSR H0JRE,SPACE, 
CRSR HOJRE2,SPACE,CRSR HOJRE, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR HO JRE, SPACE, CRSR H0JRE4, 
SPACE,CRSR H0JRE2,SPACE, 

CRSR H0JRE,SPACE,CRSR H0JRE2, 
SPACE,CRSR HOJRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 
SPACE,CRSR H0JRE,SPACE, 

CRSR H0JRE3,SPACE,CRSR H0JRE2)"; 

4O060 PRINT"(RVS ON,CRSR H0JRE, 

SPACE4,CRSR H0JRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE, 

SPACE,CRSR H0JRE4,SPACE4, 

CRSR H0JRE2,SPACE2,CRSR H0JRE2, 
SPACE4,CRSR HOJRE,SPACE, 

CRSR H0JRE2,SPACE,CRSR H0JRE2, 
SPACE,CRSR H0JRE2>"; 

401OO GOTO 50O00 

50000 PRINT"(RVS OFF.HVID, 

CRSR NEB)JEG FIK"MK" POINT (SO 
RT)I(GRON)ONSKES NVT SPIL 

50010 PRINT"(HVIB)D>J FIK "DK" POINT 
(SORT)I(GR0N)(J/N) 

50015 INPUT"(CRSR OP,CRSR H0JRE35 )"i 

N* 

50020 IF N*="J"THEN 5 

50030 IF N*="N"THEN END 

50040 GOTO 50000 


Renteknuser 


■ Hvis du har kabt et eller an- 
det pi albetaling kan dette 
program opstiUe et betalings- 
skema lor dine udgifter. 

Du indtaster gceldens storrel- 
se. renteloden samt antal ter¬ 
miner. Programmet udskriver 
derelter hvor meget du skal 
betale pr. mined, og lor hver 
termin, hvor stor en del at 
ydelsen der gdr til renter, samt 
hvor stor restgcelden er elter 
hver termin.□ 

Carstep Andersen 
og John Hvidlykke 





te REM 

20 REM -AFBETAL I NGSPROGRAM- 
30 REM Artisan DRTR 1985 
40 REM Carsten Andersen 
50 REM John Hvidlykke 
60 REM 

70 INK 0,1=INK 1,26=BORDER 1 MODE 1PEN 1 
80 ' 

90 DEF FNa?x)=ROUND?x*100VI00 
100 GOSUB 660 
110 ' 

120 CLS = LOCATE 4,3 = PRINT CHR*?150);STPING*?32,CHR*? 154>);CHR*? 156) 

130 PRINT TAB? 4 )CHPS? 149 ); TAB? 37 )CHP*? 149 ) 

140 PRINT TAB?4) = CHR*? 149) = TAB? 12 VAFBETAl. INGSPPOGPAM" ;TAB?37)CHR*? 149) 

150 PRINT TAB?4)CHR*? 149 ); TAB? 37 )CHR*? 149) 

160 PRINT TAB?4)CHP*? 149);TAB?37)CHR*? 149) 

170 PRINT TAB?4)CHR*? 149); “ CoPyri9ht= Artisan DATA 1985";TA8?37)CHRS? 149) 

180 PRINT TAB?4)CHR*d49);TAB?37)CHRS?149) 

190 PRINT TAB?4)CHR*? 149);" IDE Carsten Andersen" ; TAB? 37 )CHR*? 149) 

200 PRINT TAB? 4 )CHPS? 149 ); TAB? 37 )CHRS? 149) 

210 PRINT TAB? 4 )CHR*? 149);" PROGRAMMER I NO = Carsten Andersen "; TAB? 37 )CHP*? 149 ) 

220 PRINT TAB?4)CHRS?149);TAB?37)CHP*?149) 

230 PRINT TAB? 4 )CHR*? 149 >; TAB? 21 >" John Hvidlykke"; TAB? 37 )CHRS? 149 ) 

240 PRINT TAB? 4 )CHRS? 149); TAB? 37 )CHR*? 149) 

250 PRINT TAB? 4 )CHR*? 147); STRING*? 32, CHR*? 154)); CHRS? 153) 

260 a.S= INKEY* = IF a*="" THEN 260 

270 IF LOWER*? a* )="9" THEN AFTER 50 GOSUB 700 

280 GOSUB 590 

290 MODE 1 

300 PRINT CHR*?24 ) = PRINT STRING*? 40, “ ■■ ) 

310 LOCATE 1,2=PRINT TAB?15)"AFBETALING";CHR#?24) 

320 PRINT PRINT TAB?11)"Artisan DATA 1985" 

330 FOR i = l TO 4=PRINT'NEXT=PRINT"INDTAST GsLD = " 

340 PRINT = PRINT"INDTAST RENTESATS = 

350 PRINT PRINT"INDTAST ANTAL TERMINER" 

360 LOCATE 1,23=PRINT CHR*?24);STRING*?40," ") 

370 LOCATE 1,23=PRINT TAB?14);"DATA OK ? J/N )"; CHR*? 24 ) 

380 LOCATE 15,9=INPUT "",9aeld* = 9aeld=VAL?9aeld*)=IF 9aeld=0 THEN 380 
390 LOCATE 20,11=INPUT "",Pet*=Pct=VAL?Pet*)=IF Pct=0 THEN 390 
400 LOCATE 25,13=INPUT n*=n-VAL?n*)=IF n=0 THEN 400 
410 a*=INKEY* 

420 IF LOWER*? a*)=“n" THEN 380 
430 IF LOWER*? a* )<>" j" THEN 410 
440 GOSUB 590 
450 Pct2=Pctxl00 

460 »de 1 se=9aetd*P ct2/( l-< l+Pct2) A -n) 

470 GOSUB 730 

480 FOR i*l TO n = rente=9ae l d*Pct2 = af dr a.9=y del se-rente = 9ae l d=9ae l d-af dr a.9 

490 IF n>12 AND i>12 THEN WHILE INKEY*<>" "=LOCATE 1,24 = PRINT"TAST <SPACE> FOR S 

CROLL"=WEND 

500 PRINT #2, i; TAB? 8 )FNa? rente ); TAB? 18 )FNa? afdra9 ); TAB? 29 )FNa?9aeld ) 

510 NEXT 

520 LOCATE 1,24 = PRINT"0NSKES GENK0RSFL ?JxN)?" 

530 a*="" 

540 A*=INKEY* 

550 IF LOWER*?a*)=" j" THEN 280 

560 IF L0WER*?a*)O"n“ THEN 540 

570 LOCATE 1,24=PRINT STRING*?25," ”) 

580 LOCATE 1,24=END 
590 ' 

600 FOR 1=1 TO 35 

610 PRINT 

620 CALL &BD19 

630 NEXT i 

640 RETURN 

650 ' 

660 SYMBOL AFTER 121 

-670 SYMBOL 122,126,216,216.254,216,216,222 

680 RETURN 
690 ' 

700 INK 0,9=INK 1,25 = BORDER 9 
710 RETURN 
720 ' 

730 REM 

740 REM OVERSKRIFT 
750 REM 

760 MODE 1'WINDOW #1,1,40,1,1=PEN #1,0 = PAPERRl,1= CLS#1 
770 WINDOW #2,1,40,10,21=PEN #2,1=PAPEP#2,0=CLS#2 

780 PRINT#1, "STARTGzLD= "FNa?9aeld).= TAB? 19)"PCT = "ROUND?Pet) = TAR?28)"TFPMTNFP = "RGU 
ND?n); 

790 LOCATE 1,4 = PRINT“TERMINSYDELSE <Kr.)="FNa?ydelse) 

800 LOCATE 1,7 = PRINT"TERMIN RENTE AFDPAG PFSTG^i D" 

810 PRINT STRING*?40,CHR*?154)) 

820 LOCATE 1,23 = PPINT STRINGS?40,CHR*? 154>>.• 

830 PRINT'RETURN 

































Kinaskak 




Kender du det lille spil fra BRIO, 
hvor der er 32 pinde og et hul i 
midten? 

Det gaelder i Kinaskak om at place- 
re den sidste pind. 

Reglerne er som fdlger: 

Man mci kun flytte een pind. hvis 
man hopper over en anden og ef- 
ter man har hoppet over den. skal 
den fjemes. 

I hullet i midten. skal der st3 en 
pind til sidst. 

Thomas Lykkeberg 




PROGRAM : KINASKAK* 

9 RESTORE 

10 PRINT"(CLR)"•KK=K■PRINT”(HOME)"TA 
B<17)B$,KK"(L.BLAA,SPACEIREST" 
:K=32 

11 POKE 54296,15 POKE 54277,10 
:POKE 54278,0 

12 POKE 54276,129 POKE 54273,20 

13 PRINT"(HOME,CRSR NED23)"TAB(23)"( 
RVS ON,GR0N)NYT SPIL = 9<RVS OFF)" 

20 PRINT"(HOME,CRSR NEB6)"TAB(5)"(RV 
S ON.GULXSl 2 3 4 5 6 7«T 

21 PRINT TABC5)"(RVS ON, 

OUL)1"TAB(19)"1" 

22 PRINT TAB(5>"(RVS ON,OUL, 

SPACE)"TAB(19)" " 

23 PRINT TAB(5)"(RVS ON, 

0UL)2"TAB(19)"2" 

24 PRINT TAB(5)”(RVS ON-OUL. 

SPACE)"TAB(19)" " 

25 PRINT TAB(5)"(RVS ON, 

GUL)3"TRB(19)"3" 

26 PRINT TABC5)"(RVS ON.GUL. 

SPACE)"TAB(19)" " 

27 PRINT TAB(5)"(RVS ON, 

GUL)4"TAB(19)"4" 

28 PRINT TAB(5)"(RVS ON.GUL, 

SPACE)"TAB'19)" " 

29 PRINT TRB(5)"(RVS ON, 

GUL)5"TAB(19)"5" 

30 PRINT TAB(5)"(RVS ON.GUL, 

SPACE)"TAB(19)" " 

31 PRINT TAB(5)"(RVS ON, 

GUL)6"TAB(19)"6" 

32 PRINT TAB(5>"(RVS ON.GUL. 

SPACE)"TAB(19)" " 

33 PRINT TAB(5>"(RVS ON, 

GUL)7"TAB(19)"7" 

34 PRINT TAB(5)"(RVS ON, 

GUD8S1 2 3 4 5 6 78" 

35 IF KK>=1 THEN 120 

100 DIM A(7) ; DIM B(7) ; DIM C(7) 

DIM D(7) : DIM E(7) : DIM F(7) 

^DIM G(7> 

120 FOR Q=1 TO 7 : READ A(Q> W=U+1 

IF W<3 OR W>5 THEN POKE A(Q),32 
; GOTO 140 

130 POKE A(Q),81 

140 NEXT Q : W=0 

220 FOR Q=1 TO 7-READ B(Q)-U=U+1 
;IF U<3 OR W>5 THEN POKE B(Q),32 
; GOTO 240 

230 POKE BOP),81 

240 NEXT Q : W=0 


320 FOR 0=1 TO 7 READ C(Q> 

330 POKE C(Q),S1 
340 NEXT Q 

420 FOR Q=1 TO 7 : READ D(Q)W=W+1 

IF W=4 THEN POKE D(0),46 GOTO 440 
430 POKE D(Q),81 
440 NEXT 0-W=0 
520 FOR Q=1 TO 7 READ E(Q) 

530 POKE E(Q),81 
540 NEXT Q 

620 FOR Q=1 TO 7 READ F(Q) W=W+1 

IF U<3 OR W>5 THEN POKE F(Q),32 
: GOTO 640 
630 POKE F(Q),81 
640 NEXT Q : U=0 

720 FOR Q=1 TO 7 READ G(Q) W=W+1 
■IF U<3 OR W>5 THEN POKE G(Q>,32 
GOTO 740 
730 POKE G(Q>,81 
740 NEXT Q : U=0 : POKE 54276,0 
POKE 54277,9 

745 POKE 54276,17 : POKE 54273,100 
FOR T=1 TO 500 : NEXT T 
• POKE 54276-0 

750 POKE 54276,17 POKE 54273,50 
PRINT"(HOME,HVID1FLVT FRA" 

FOR T=1 TO 100 : NEXT 

751 INPUT K* : IF K*="9"THEN INPUT"(LI 
LLA)SKRIV DIT NAVN",B$ GOTO 9 

752 PRINT"(CRSR OP,SPACES)" 

754 L*=LEFT*(Kt,1) Z»VAL(L*> 

755 LJ=RIGHT$(K$,1) : H=VAL(L*) 

760 POKE 54276.0 

761 IF 2<1 OR Z>7 THEN 750 
765 IF H<1 OR H>7 THEN 750 

770 IF H<3 AND Z<3 OR H<3 AND Z>5 TH 
EN 750 

775 IF H>5 AND Z<3 OR H>5 AND Z>5 TH 
EN 750 

850 POKE 54276,17 PRINT"(HOME, 
L.BLAA)FLVT TIL" : FOR T=1 TO 100 

NEXT T:POKE 54276,0 

851 INPUT K* : PRINT"(CRSR OP.SPACES)" 

854 L*»LEFT*(K*,1)X=VAL(L*> 

855 L*=RIGHT*(K$,1) : I=VAL(L*) 

860 IF X<1 OR X>7 THEN 850 

865 IF I<1 OR I>7 THEN 850 

866 IF Z+H>X+I+2 OR X+I>Z+H+2 THEN 7 
50 

867 IF Z+H=X+I+1 OR X+I=Z+H+1 THEN 7 
50 

868 IF Z»X OR H=I THEN 874 

873 GOTO 750 

874 IF 1(3 AND X<3 OR I <3 AND X>5 TH 
EN 850 

875 IF I>5 AND X<3 OR I>5 AND X>5 TH 


EN 850 

880 IF H>I THEN R=+30 

881 IF H(I THEN R=-80 

882 IF Z>X THEN R=-2 

883 IF Z<X THEN R=+2 

890 POKE 54276,33 : POKE 54273,50 

911 IF H=1 THEN POKE A(Z),46 

912 IF H=2 THEN POKE B(Z),46 

913 IF H=3 THEN POKE C(Z),46 

914 IF H*4 THEN POKE D(Z),46 

915 IF H=5 THEN POKE E(Z),46 

916 IF H=6 THEN POKE F(Z),46 

917 IF H=7 THEN POKE G(Z),46 
920 FOR T=1 TO 200-NEXT T 

: POKE 54276,0 : FOR T=1 TO 100 
•NEXT T : POKE 54276,33-K=K-1 

1011 IF 1=1 THEN POKE A(X),81 
FOR T=1 TO 100 : NEXT T 
POKE A(Z)+R,46 

1012 IF 1=2 THEN POKE B(X),81 
FOR T=1 TO 100 : NEXT T 
POKE B(Z)*R.46 

1013 IF 1=3 THEN POKE C(X),S1 
•FOP T=1 TO 100 NEXT T 

POKE C(Z)+R.46 

1014 IF 1=4 THEN POKE D(X),81 
: FOR T=1 TO 100 : NEXT T 

: POKE D(Z)+R,46 

1015 IF 1=5 THEN POKE E(X),81 
FOR T=1 TO 100 : NEXT T 

: POKE E(Z)+R,46 

1016 IF 1=6 THEN POKE F(X),81 
!FOR T=1 TO 100 NEXT T 

: POKE F(Z)+R,46 

1017 IF 1=7 THEN POKE G(X),81 
FOR T=1 TO 100 NEXT T 
POKE G(Z)+R,46 

1018 PRINT"(HOME)"TAB(34)" 

1019 PRINT"(HOME)"TAB(34)K" " 

1020 POKE 54276,0 : FOR T=1 TO 100 
NEXT T 

4000 GOTO 750 

5000 DATA 1310,1312,1314,1316,1318, 
1320,1322 

5010 DATA 1390,1392,1394,1396,1398, 
1400,1402 

5020 DATA 1470,1472,1474,1476,1478, 
1480,1482 

5030 DATA 1550,1552,1554,1556,1558, 
1560,1562 

5040 DATA 1630,1632,1634,1636,1638, 
1640,1642 

5060 DATA 1710,1712,1714,1716,1718, 
1720,1722 

5070 DATA 1790,1792-1794,1796,1798, 
1800,1802 
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Rocket Lander 



If 


■ Dette er det velkendte spil, 
hvor du skal bombe hajhuse- 
ne under din raket for ikke at 
ramie ind i husene. da din ra¬ 
ket har motorskade og daler 
langsomt ned. Programmet 
har 10 svcerhedsgrader ind- 
bygget, og du bomber med 
tasten B.D 

Claus Evers Christensen 


1 INK 7: LET hi =.500 LET jK*l 
LET s d= 0 : LET i C = 0 : LET v =0 L 
ET i=D: BORDER 1: PBPEB 0 CLS 
CO SUB 5000: GO TO 5110 
5000 RESTORE 5000 FOR a =USR "a" 
TO USR " g " ♦ 7 : BEAD b POKE 3,b: 
NEXT a: RETURN : DATA 251,96.25 
5,126,126,255,96,254,0,0,210,63, 
63,210,0,0,0,0,0,60,21,0,0,0,0,2 
6,6,8,137,255, 126 ,129,129,139,16 
5,l65,189,129,129,129 , 0 , 0 , 255 , 0 , 
0,255,0,0,255,170,0,0,0,0,0,0 
6010 6 oRD£R 3. CLS DIM w(50): 


;«l;»T 1,20; "LEUEL: "; u 

7010 PRINT fal;AT l,9;sc,Bl;«T 1 , 
28 ; le 

7011 PRINT RT x-l,y," ";RT X , y; •• 

»AT INT a,b," LET X-X+I: 

LET b = b*l 


OINTS" 

8115 PRINT RT 18,0; BRIGHT 1; IN 
K 6; PLASH 1; "PRESS AMY KEY TO E> 
COIN" 


FOR a=3 TO 27' LET p=21-INT (RND 
*10): LET h=INT (RND»6)*1. FOR b 
=21 TO P STEP -1: PRINT RT b,a, 
INK h ; “H" • LET w (a ) =P : NEXT b: P 
RINT RT b,a; "A ": NEXT a 
6020 COR g--0 TO 31. PRINT 01; RT 

6695 PRINT C RT 1,10; FLASH 1, INK 


PRINT SI; AT 


6095 PRINT RT 0,10, FLASH 1: INK 
6;"GET READY": FOR J=0 TO 100. 
NEXT J: BEEP .1,5: PRINT RT 0,10 


6100 LET a * l C : LET b*l: LET sC=0 

6101 T PRINT »1. RT 1 ,3, "SCORE .• '';JC 

; 81 ; RT 1,20; "LEUEL: le 

6105 print B1;RT 1, B;&c; Ul; FfT 1, 


8110 € PRINT RT INT a,b; INK 6;" 


BEEP ,001,30. BEEP -001,10 
FOR <J=0 TO 2. NEXT 9 
IF V =25 THEN GO TO 9000 
IF INKEY * C > •• *• THEN GO TO 70 


LET b=b*l 

7020 BEEP .001,10: BEEP .001,50 
7050 IF b >29 THEN LET b=l: PRINT 
RT INT a,29;" LET a=a».5 

•060 IF ■(b*l)=a*l THEN GO TO 80 

00 

7070 IF »<y)=X OR Vly)ax-1 THEN 
LET tCMCli LET M(yS=500: LET V 
■V +1: BEEP .03,10 

7080 IF X >21 THEN PRINT RT X-l.U 
LET x =0: LET «(y)=100: BEE 
P .005,0: BEEP .005,8: GO TO 610 

7090 PRINT RT X-l: GO TO 7 

010 

8000 PRINT RT a,b; BRIGHT I; FLR 
SM 1; 

8010 PRINT RT a,b; BRIGHT 1, FLR 
SH l; FOR C =20 TO IS STEP - 

.2: BEEP .001,a: NEXT t: FOR o-a 
TO 21 STEP .5: PRINT RT 0,b,"*» 
"; RT o , b; OUER l;"IJ“: BEEP .01, 

6: PRINT RT o,b; OUER 1;-: BE 

EP .01,-3: PRINT RT o,b;" “: NE 
XT o 

8090 PRINT RT 3,11; FLRSH 1;"GAM 
E-OUER" 

B095 IF SC >hi THEN LET Kl.SC 
8100 FOR l=0 TO 300. NEXT 1 
8110 CLS . PRINT RT 2,0; INK 2," 


LET b=b*l: IF b.'2S> T.ME.N LET 
: PRINT RT INT B ,2". L 

“iF - 5Cb*l)=a*l THEN GO TO 80 


ROCKET 


6126 PRINT RT 7,0; INK 4»; 


GO TO 61®B 

LET X *INT a *2. LET u«b + l 
PRINT Si;AT 3,3;"SCORE.Jl 


1NDER 


Lf 


8130 PRINT RT 13,0; FLRSH 1; INK 
6;"LRST PLRYER Got ";sc;" POINT 


8110 PRINT RT 15,0; FLRSH 1; BRI 
GHT 1; INK 2;"HIGMSCORE ";hi;“ P 


: RERO Wl: BEEP .IS,Vt*12: BEEP 
B 1^2 IF INKEY* <>••" THEN GO TO 81 

8153 NEXT t: DATA 3,10,8,13,1,8, 
-7,-2,-1,-11,-9,-2,-1,6,3,6,1,11 
,8,13,8,11,6,13,8,1,-2,-1,-6,3,1 
, -2, -1,5,3, -2,1, -1, -2, -6, -1, -11, 

-6 

8154 FOR t=0 TO 500 

8155 IF INKEY* O"" THEN GO TO 81 
62 

3156 NEXT t 
8157 GO TO 8151 

8162 BEEP .05,-10. BEEP .05,-6 
8165 INPUT "LEUEL (1-10) .",le 
6166 IF le >10 OR le ;1 THEN GO TO 

8165 

8167 LET lc =INT RBS le: CLS . GO 
TO 6010 

9000 LET a=(INT a> FOR d =b TO 2 
9: PRINT RT INT a , d . LET J. 

C *S C *1 . PRINT Ol , At 1, 9, S £ . .VEA'T 
d: PRINT RT INT a, 29;"=:" 

9010 FOR c =a +1 TO 20 FOR d=0 TO 
29: PRINT RT c,d; "=£*■": LE T SC = 
se+1: PRINT Ol, RT 1 ,5;st . .NEXT d 
PRINT RT c,29;" = " NEXT C 
9020 FOR d =0 TO 29: PRINT RT 21. 

LET SC=SC+3 PRINT SI; A 
T 1,9;SC. NEXT d 

9060 FOR a=0 TO 200: BORDER l RND 
*7): FLASH 1: BRIGHT 1. NEXT a 
9065 FLRSH 0: BRIGHT 0: BORDER 0 
9070 GO TO 3090 

9500 PRINT "SAVE": SAKE "ROCKET 
L." LINE 1: PRINT "VERIFY": VERI 
FY "ROCKET L." 


NEXT a 
BORDER 0 




















Kaptajn 

torpedo 


Du er blevet ansat i det sven- 
ske militcer som kaptajn pd 
en torpedobdd. Din opgave 
er at bekcempe de fjendtlige 
ubdde, som snuser rundt i 
skcergdrden. Du styrer din tor- 
pedobdd med tasterne z tor 
venstre, x tor hojre og m tor at 
smide torpedoer. 

Ivan Jeppesen 



L. 


V 






I VAN » 


7 / 

f 



M.f/J 


'M,' 




MM 



! © SBH ** 'Tn i pi*d>> * *■ * 

20 »CH 

30 BORDER 4 . 

35 PARER 1; INK .• : CL5 
4© SO SUB AS© 

S® GO SUB 54.0 
60 GO SUB 37© 

7© LET r=© 

80 LET b $= '3* 


80 LET b$ = 'S* 

O© LET ty=10" 
i©0 LET 
110 LET (ix *30 
12© LET t =0 

140 PRINT _ PAPER 1; IN K 7 j AT 0,0 
, 'FORS0G-",AT 0, 15;"PLETTfcRE- 
150 LET OS* I NT (RrJD*9) + 1^„ 

160 PRINT PAPER 5, ' 

Xibt PRINT PAPER 1; INK 6,AT us 

'17® PRINT PAPER 5,_AT 0,9;" 

' 1S0 P PPIN+ R AT 0 6T*I to; AT 0,24.. r 
190 PAUSE 10 
200 LET sus-uy 
210 IF 1=0 THEN LET tx-x+1 
220 LET SUX-UX LET SX-X 

121 THEN GO TO 200 

250 LET x =x * (IMKEi’**' x AND x<3 
01-(INKEY* «"Z" AND X>B> , , 

260 IF INKEY*-'m THEN LET t=1 
270 PRINT PAPER 5, AT 10,sx; 

26® NEXT n 

290 LET uouk -1 . , __ 

300 IF 1=1 THEN LET stw-ty: LET 
StX=tX: LET ty-tyr-1 AND ty <21 : 
PRINT AT stSiSlx," PRINT INK 
7, PAPER 1> AT ts,t«i . 

310 IF t y =21 THEN LET to-to 1: 
LET 1-0: PRINT PAPER 1;AT 21,tx, 
'• " : LET t y-10• GO TO 780 
320 IF 10-0 THEN GO TO 730 _ 

330 IF ATTR toy,ox+11=15 OR ATT 
R Ojy,UX+2>-IS THEN GO TO 65© 

340 tCF ox-1 THEN uFT to-to-1: L 
ET ux-30: LET uy-INT (RNDtl0)*13 
360 PRINT AT suy,i-ux;” 

360 GO TO 160 

37® REH L dndskab 

360 PAPER 1: CLS 

390 FOR n-0 TO 10 

400 FOR f-0 TO 31 . „ .. 

410 PRINT PAPER 5,AT n,f; 

420 NEXT f 
430 NEXT n 
440 RETURN 
450 REM Ops tart 

460 PRINT AT 0,10;"* TORPEDO * 
470 PRINT AT 2,3; I detle sp i l 
skal du styre";AT 3,3; en tor ped 
o baad,der er paa'',flT 4,3; Jagt 
efter en u ba an. 

480 PRINT AT 6,3;"Do styre med 
dlsse taster." 

490 PRINT AT 8,3; Z““ << * AT 


9,3;"""x““ >>";AT 10,3;.H"" Sm 

ider torpedoen 

500 PRINT AT lB,l;“H»or aanye / 
orsos wit du have" 

510 INPUT to 
520 LET fo-to 
530 RETURN 
540 REM U.D.G 
550 FOR f-0 TO 7 

560 READ a: POKE HSR "a"tf,3: N 
EXT f 

570 DATA BIN 00000111,BIN 00000 
111,BIN 11100111,BIN 11111111,BI 
N 11111111,BIN 01111111,BIN 0011 
1111,BIN 00011111 
560 FOR f -0 TO 7: READ a: POKE 
USR "b" + f,a: NEXT f 
590 DATA BIN 11100000,BIN 11100 
000,BIN 11110000,BIN 11111111,BI 
N 11111111,BIN 11111111,BIN 5111 
1111,BIN 11111100 
600 FOR r =0 TO 7: READ a: POKE 
U5R "c"♦f,a: NEXT f 
610 DATA BIN 0000©111,BIN 00000 
111,BIN 00000111,BIN 00111111,BI 
N 10000000.BIN 11111111,BIN 0111 
1111,BIN 00111111 
620 FOR f -0 TO 7: READ a: POKE 
USR "d"rf,a: NEXT f 
630 DATA BIN 11000000,BIN 11000 
000,BIN 11100000,BIN 1111110©,BI 
N 11111110,BIN 11111111,BIN 5111 
1110,BIN 11111100 
640 RETURN 
650 REM Eksplosion 
655 PRINT AT t u,t «, ” “ 

660 PRINT PAPER 1 , INK 6 ;AT uy - 

I , 0 x;"_ 0 ;x w 

662 RESTORE 665: FOR d-1 TO S: 
READ j , k : BEEP j,k- NEXT d 
665 DATA .1,11, .1,11, .8,16, - 05, 

II, .05,16,.05,11,.05,16,1,20 
670 LET r-r +1 

680 LET to.to-J 
690 PAUSE 100 

700 PRINT PAPER 1; INK 6 ; AT uy- 

1 , o x; " 

710 PRINT PAPER 5;AT 10,x," 

720 GO TO 80 

730 PRINT PAPER 1, INK 7;AT 4,3 
, "Du har ikke flere forsoj" 

740 PRINT PAPER 2; INK 7; AT 6,2 
ramte “;r;“ ud af “;fo;" mu 

>80 INPUT "Uit du prove igeu (J 

,"N ) " ; a $ 

760 IF a J" OR THEN RU 

770 STOP 

76® PRINT PAPER 5;AT 1®,x;" ": 

PRINT PAPER 1 ;AT uy,ux," ": G 
O TO 80 

790 5AUE "TORPEDO" LINE 10 


41 






Charachter 

designer 


■ Dette program kan bruges 
til at define re nye tegn. Pro¬ 
gramme! opstiller et stort 8*8 
felt, hvor man kan flytte mndt 
med en cursor og designe si¬ 
ne egne tegn. Samtidig kan 
man se. hvordantegnet kom- 


mer til at se ud i naturlig stor- 
relse. Til sidst kan man fd ud- 
skrevet de talkoder, der skal 
bruges, i en SYMBOL-kom- 
mando for at skabe tegnet. □ 
Martin Vith 




100 pem ttttttttttttttmttttttttttttt* 

110 REM *»*» CHARACTER MAKER ***t 
120 REM *m*»M«**»m*tt*»**m*m 
130 REM * SKREVET RE MARTIN VITH 1989 * 

140 rem t immimnnmmnnnn 

150 

160 REM tntttttt VflPIRBLEP OC SKREPMPILLEDE ttttttttt 

1 00 IN" B 0 L 0 B INK R i , ?8 t> BOROER 0 MODE I 'PEN I PAPER 0 INK 2,6 INK 3.9 DIM U'9.9) 

190 FOR A-l TO 9 1 FOR B-l TO 9'U<A.B>-0 NEXT'NEXT 

200 PEN 1' LOCATE 1,12 PRINT"KAPAKTEREN "-CHP*<243 >*" " 

210 NR-”AMSTRAO"■PEN 2'LOCRTE 2,14'GOSUB 760 
220 MR--CPC 464" PEN 2'LOCATE 2,17'GOSUB 760 
230 MR-"CHARACTER" 1 PEN 1'LOCATE 1.20 COS'® 760 
240 MR-"MAK£R" PEN 1 LOCATE 3,23 0031.18 760 
290 PAPER 3'PEN 0'LOCATE 1,1'PRINT" " 

260 FOR A-2 TO 9'LOCATE l.APRINT" "*STRINGR<8,143)* "NEXT 
270 LOCATE 1,10 PRINT" 

200 PAPER 0'PEN 1 

290 WINDOW »1,12,16,1,10 PAPER PI,2 PEN «1,0_CLS PI 

300 PLOT 274,399,3'DRAW 639,399 DRAW 639.0 DRAW 274.0 DRAW 274.399 

310 PEN 1'LOCATE 22,2'PRINT "PROGRAM 8TYRING'" 

320 PAPER 0'PEN 1'LOCATE 19.4,PRINT CHPP'240., PEN 2 PRINT OP 
330 PEN 1'LOCATE 19,6’PRINT CHPRI241>.'PEN 2 PPINT "NED- 
340 PEN 1'LOCATE 19,8 PRINT CHRP'242>. PEN ? P £'N T ^EN3TPF 
390 PEN 1 LOCATE 19.10'PRINT CHRP' , 243>. PEN 2 PRINT "H0JRE 
360 PEN 1'LOCATE 19,12'PRINT “DEL",'PEN 2PRINT SLETTEPPIK 
370 PEN 1'LOCATE 19 . 14 PRINT "COPY",_PEN 2 PRINT LAVE PPIK 
380 PEN 1 LOCATE 19,16'PRINT "CLR",'PEN 2PP'NT3LETTEP MELT 
390 PEN 1'LOCATE 19,18'PPINT “ENTER", PEN 2 PRINT “GIVER KOOEP 
400 PEN 1'LOCATE 19.20 PRINT "P"■ PEN 2'PRINT "PP'J3E . 

410 PEN 1'LOCATE 19,22'PRINT "S", PEN 2 PRINT "STOP PALISEN 
420 PEN 1'LOCATE 19,24 PRINT "F".'PEN 2 PRINT "FARVEP 
430 X-2Y*2'X«-CHP*'143) 

440 REM »**t****** HOVED PROGRAM *»***»»«** 

460 LOCATE'xIyPEN 2PRINT X» PLOT 236-XF2,226-Y42.2 

470 IF U<X,Y)-0 THEN PEN 0 LOCATE X.YPRINT X* PLOT 23«*X»2-126-Y«-0 
480 IF U(X,Y)-1 THEN PEN 1 LOCATE X.YPRINT X* PLOT 236-XF2 . 226-Y*2 , 1 
490 NEXT S 


900 IF X>2 AND INKEYf8>-0 THEN X-X-! 

910 IF X<9 AND INKEYI1>-0 THEN X-X41 
920 IF Y>2 ANO INKEYC0>-0 THEN Y«Y-1 
930 IF Y<9 AND INKEYf2»-0 THEN Y-Y-l 
948 IF INKEY(9>-0 THEN U(X,Y>-1 
990 IF INKEY<79>-0 THEN LKX,Y)-0 
960 IF INKEY(16>-0 THEN GOTO 190 
970 IF 1 NKEY( 27 )-0 THEN GOSUB 610 
980 IF INKEY<18>-0 THEN GOSUB 630 
990 IF INKEY(93>-0 THEN GOSUB 830 
600 GOTO 490 

610 IF IHKEYf 60 >-0 THEN RETURN ELSE 610 
620 REM SAMMENTAELLING AF KOOER ***««**» 

638 as 01 PRINT RI PEN tl.l 
640 FOR A-2 TO 9'SUM-0 
690 IF IX 2, A )-1 THEN SUM-SUM* 128 
660 IF UK3,A)-1 THEN SUM-SUN*S4 

670 IF UK4,A>-1 THEN SUM-SUM-32 

680 IF IXS.AT-I THEN SUM-SUM* 16 

690 IF IX6.A)-! THEN SUM-SUM-8 

700 IF IX 7, A >• I THEN SUM*SUM»4 

710 IF IX8,A>-1 THEN SUM-SUM-2 

720 IF U(9,A>-I THEN SUM-SUM* 1 

730 PRINT Rl.SUMi NEXT 
740 RETURN 

790 REM ««««»»** STORE BOGSTAVEP ttttttttt 
268 FOR M-l TO LEW MR) 

770 FOP T-0 TO 7 

780 P- PEEK ' 6A900-U ASCI MIDR< MR ,N,I> )-32)F8*T ) 

790 L<T)-P.NEXT SYMBOL 140,L(0).L<0>.L( 1 ),L< 1 >.L<2>.L<2).L<3>.L*'3) 

800 SYMBOL 141,L<4>,L(4>,L<9>,L<5>.LC6).L<6).L<7),L<7> 

810 PRINT CHRRf 140 >-CHR*'10 >*CHP«'8'-CHPR' 141 '-CHPR' 11 V NEXT RETURN 
820 PEM FARVEP 

830 PEN 1 LOCATE 1,12'PPINT " 

840 PEN 1 LOCATE I 12 INPUT "BOPDEP 7 ".HIE H)76 OP H'd THFN 830 FI SF ROPPFP H 

890 PEN 1'LOCATE 1,12'INPUT "PAPER 7 '.H IF H>26 OP H<0 THEN 890 ELSE INK n.H 

860 PEN 1'LOCATE 1,12 INPUT "PEN I 7 ",H IF H>26 OP H<0 THEN 860 FLSF INK IH 


870 PEN 1'LOCATE 1,12 INPUT "PEN 2 7 ",HIF H>26 OP H<0 THEN 870 FUSE INK 7 H 


880 PEN 1 LOCATE 1-12 INPUT "PEN 3 7 


"H IF H>26 OR H<0 THFN 880 ELSE INK 2H 


890 PEN 1 LOCATE 1-12 PRINT-KARAKTEREN "♦CHPR' 243)' PETUPN 


42 ! 0ft 


















■ Dette program udskriver al¬ 
ls de mullgheder, der er lor de 
4 sidste cllre i et CPR-nummer. 
Ndr lodselsdatoen og ens kan 
er opglvet, skal man indtaste 
starttallet lor de 4 sidste cllre. 
Man kan sd checks at ens 
CPR-nummer er lovligt. □ 

Lars Christensen 



10 ' "Check CPR-mirore, < c 'y b'-> LCSoft 
20 MODE 1 

30 INPUT "Hvilet aar er- du f odt “•? 

40 IF a<1900 OR *>1985 THEN PRINT CHR*f7>rHP*f 11 >;= GOTO 30 

50 INPUT " Hv ilk en ma a ned er d'i f odt " . m 

60 IF m<t OR m>12 THEN PRINT CHRV7>CHP*< 11)s = GOTO 50 

70 INPUT "Hvilken d *9 er du fodt : ".d 

00 IF d< 1 OR d>31 THFN PRINT CHP*<T 7'CHP*<: 11 >; =GOTO 30 

90 PRINT "Er du W ’rid> slier kY v inds> t 

100 k**UPPER*<INKEY*>=IF k*="" THFN 100 

110 IF k*="M" THEN k=l:G0TO 140 

120 IF k*="K" THEN k=0 Girm 140 

130 PRINT CHR*< 7 );* GOTO t00 

140 PRINT k* 

150 INPUT "UdskrifT fra nu.mmer « ",start* : start*V 8 L<start*) 

160 WHILE LEN<start*><4•start*="0"+start*:MENU=start*=LEFT*<start*,4) 

170 IF VflLCstart*><>st*ht THEN PRINT CHR*-T7>PHP*< 11 )> = GOTO 150 
180 PRINT "P<rinter> eller S<kaernO ! 

190 k*=UPPFP*r INKFY*> = IF k*= M " THEN 190 
200 IF k*="P" THFN s =8 GOTO 230 
210 IF k*="S" THEN s=0 GOTO 230 
220 PRINT CHR*<7>.• = GOTO 1?0 
230 MODE 1 

240 PRINT#s>"Udskriften er for sn ":=IF t = l THFN PRINT#®•"wand" ELSE PRINT#®,"kv 
inde" 

250 PRINT"Fodt dsn"d"i"m;a 

260 da.t s=4*< dM 0 >+3*<! d MOD 1 0 >+?*«'»M 0 >+7*< m MOD 10>+6*«rf* MOD 100)M0)+5*K* MOD 
10 > 

270 k4=V8LCMID*' start*, 1.1 )>:k3=VflLCMID*<start*, ?, 1 >> = k2=VRI/MTD*< =tar*,3,1 ))«kl 
=VflL< MID*<start*,4,1> > 

280 IF k=0 THFN kl=kl RND 254 ELSE H='k1 AND ?54>+l 
290 ok=<Cd*te+4*k4+3*k3+2*k2+kl> MOD 11 >=0 

300 IF ok THFN ®.*=MT D*< STP*< k4* 1000+k 3* 100+k2* 10+k t >. 2 >= WHIL.E LEW ®* X4 = =*= " 0" +s 
*•WEND : PRINT" "+®*. 

310 kl=k1+2=IF kl<10 THFN 290 
320 kl=k : k2=k2+l : IF k2<10 THFN 200 
330 k2=0 : k3=k3+l : IF k3<10 THFN 2^0 
340 k3=0 : k4=k4+l:IF k4<5 THFN 290 
350 END 

















Dette fantastiske program til 
Commodore 64. der i ovrigt er 
brugt til et at torsidebilledeme, 
er lavet i BASIC. Det skal man 
dog ikke lade sig narre at, 
idet programmet laver sig sel- 
vom til maksinkode i lobet at 
kun 6 minutter. 

Programmet giver dig mulig- 
hed tor at tegne de utroligste 
ting, og med tantastisk man¬ 
ge smarte kommandoer: 

FI - Fyld et aflukket omr6- 
de, med en farve. 

F3 = Skitter baggrundsfar- 
ven. 

F4 = Skitter kanttarven. 

F5 = Loader et savet billde 
(OBS! virker kun ndr turbota¬ 
pe ligger i hukommelsen). 
F6 = Save billeder (ogsd 
med turboen inde). 

T = Tykskrltt. 

Y = Tykskrltt iY-retning. 

L = Llnie (tryk L, flyt tegne- 
krydset og tryk lire. En llnie 
tegnes mellem de to punkter. 
R = Rubber (viskelasder), 
sletter istedet tor at farve. 

N = Normal skritt og fart. 

F = Fast soBtter skrivehastig- 
heden op. 


5 RFM ****************************** 
*** 

7 POKE 53231,0-POKE 53280,0 
10 PRINT "VENT 6 MINUTTER" 

: FOR ft=0 TO 121 ; REFID Q* F=0 
FOR A1=0 TO 18 STEP 2^0=0 


20 FOR B=1 TO 3:B<B>=RSC<MID*<Q*, 
1.5*A1+B,l>>-48 : IF B<B>=~15 THEN 
B<B>=10 

25 Q=Q+B(B>*41f<B-l> : F=F+B(B> : NEXT 
30 POKE 32768+A*20+A1,0/256 
POKE 32769+8*20+81, 

Q-INT<0/256>*256 

40 NEXT:F=F AND 15 : G=ASC<RIGHT$(0$, 

1>>-64 

50 IF FOG THEN PRINT "BATA ERROR IN 
"PEEK < 63 > +PEEK< 64 > *256 : FF=FF+1 
60 NEXT : IF FF>0 THEN END 
70 AS="(SORT > SVS33792"+CHRJ<13 > 

80 POKE 198,10 FOR H=1 TO 10 

POKE 630+A,8S<• <MIB$< A$, 8 ,1> > : NEXT 
2048 DATA ,00891S307J7?!8000S10PLf19N 
IF0BK 

2068 BATA U0E7V57F193V7V5E0BLH1; 
MU04VD21B 

2088 BATA DC63PLU > IME?E@D<; 
INE7F0D4NXFNJ 

2108 BATA @000BNFBHB006<H3!6F!DC2EO, 
7S0U 

2128 BATA 30U21LE1BP5H!B37GW51K<12@ 
6 IUIM 

2148 BATA 4B2=;I=M3MX0!=VB5Vi 
512W4QAVT7GM 

2168 BATA S<;!UI4B2?5I=M3XXU54LA0KF5 
V9L0A 

2188 BATA 8VKW>PC9LEKHQIH?! 6 =<DMIH?! 
6 «BC 

2208 BATA MIHS? 6 XBS<; S<;; 

<DCAJN<0LE1LH1B 

2228 BATA I3<HKHUHK;<O>B0K60NOOBM>MB 
V07VB 

2248 BATA 9!VNRUS0V!30ES5O06K76171L0 
VPJ0C 

2268 BATA 4QJG>;P42H260A110J12SPK032 
S>TNK. 


2238 BATA @riSBG2EKH2?H76I01NP<7QFN=2 
6646N 

2308 BATA =03>B0N61KGi 
A4<N0K67IB22J70NOKH 
2328 BATA 4?HCAJJ?093L8XH<4KH; 
I7F10V5905H 

2348 BATA KONUJU9X59X5SR50L!U9@1MORN 
0U01L 

2368 BATA 4061L!P!@0«0B9FFM>!30607KL 
>PS>F 

2388 BATA JUVH=L5O>0OIH@B9NIG@B3MHEK 

if<v@ 

2408 BATA SQO!7S0SRMG0=M>VL03=1N067C 
V930K 

2428 BATA 0<VF<VSQ0(7S0SRMQ0=M>JXPPH 
QQ! 10 

2443 BATA !5B0V4=C1R299M2VNIXCESOO5X 
PBC3B 

2468 BATA XX4X?1JSBX0H!4BSMHO0B2XHGi 
IRS40 

2488 BATH Q018WVCS2SQ0=JJ 
6K1P0S3T4CL1EA;C 

2508 BATA 5M, BClt'K0WP99NI7BE7OO565GV 
4=C1E 

2528 BATA AL0N0BFM>L908=3!NIMCEPH0L9 
0H26A 

2548 BATA 9NI3BEHM0R9F<5IAM3B=6=i 
0=5IAM3E 

2568 BATA MU0I077003508J>4FV0?HKAJ@A 
0GA0E 

2588 BATA 0@0W91RN00@0L40Efl2I8404N48 
1! 1LB 

2603 BATA KFTKONKPUF22>9D?T0O9OHQO7F 
0N0BE 

2628 BATA 6?JEMO7F0H267052XVMX4IL; 
HB0=15I 

2648 BATH NJNSKO3?HLAE4B1=O<5S0V!<H= 
L, LNJ 

2668 BATA 0K00G;E12W05RC1750XHI=; 
0EC0SMRF 

2688 BATA 37GGA0EC024T37G2N0EC0IOG37 
Gl>10 

2708 BATA EC0XKOPOSPMS0!6UK00U4GT1OM 
KP00F 


44 && 





S = Slow nedscBtter hastlg- 
heden. 

P = Prlntrutlnen, dumper et 
skcermblllede tU printer (MPS 
801). 

CLR/HOME sletter skaermen. 
CTRL + (1-8) giver farveskilt. 
Og altsammen 1 rent maskin- 
kode. 

Hdber du tdr fornejelse ud at 
dette virkellg anvendelige 
tegneprogram. 

Gorm Salomonsen 


2728 BATH Q7<2L;=C1B30H!2MCE6?P6N0FC 
ER7PD 

2748 DFITFI =I7@T00OIftCER?P4?21P3JNIBC 
E2>PFI 

2768 BFlTfl 71S4RI50HXPJE! BI N>QG04M0B9 
03E0F 

2788 DFITR >6N<5IPKO61SlO>I@0>flNP@0=FI 
0R>0B 

2808 BATfl IN10S6EJQL13XN3QK9KQU=X41N 
18NS0 

2828 BFITFI S7KGMKBNISGE0>24M; 602FIH , 
?XlHfl;B 

2848 BFITFI GI15O10TK1X4CI1H70CI1XE0G0 
1B2IB 

2868 BFITFI 0MK8>JKEQ0G2HUUJ4K9N187D9? 
B3?DJ 

2888 BFITFI 0?B1?D4?B8J>TN9FKH@GKJK8L< 
0RCSFI 

2908 BATfl 2860J0flWV8PMFHLKG25O>POS 1N 
SKI0E 

2928 BFITFI 8DL7VFIXPF7VEKEKJFT! CUPKOBH 
PKONK 

2948 BFITFI SJSU=SOH I IJ=S71JSJS07LFKH0G 
KJK8G 

2968 BFITFI P00; >0<VVNPOKON5OTB5I40NTK 
0E5IC 

2988 BFITFI 50NIFTVW4MR1UK1TK; 9C l; 
O>@R2?R0M 

3008 BFlTfl UX4M01EU>0=1HF06B0WX4LO1 F@ 
0EC0M 

3028 BATfl 4L8LV4N91Q9F!X49<1JS5SKOGX 
47<1H 

3048 BATH <T5O2?4M0!305R51T42MHSRI<U 
GSV1FI 

3068 BFITFI 0H2FII >0KH>Q I KODAK I J@D 1 ?H? I 
B=! DN 

3088 BFITFI C4KF9FI PB>2V3EVTPVJQO! NIB, 
BAN IB 

3108 BFITFI E, BBQIF; BJNIG; 

BH8LPIR1B5PCGNBC30 

3128 BFITFI I>U<OFI 132X< i KH=JV93V; 
RFI49HHT4FI 

3148 BFlTfl HT4HT49T4: riOEBFH0565@l Hfll 
OR! TE 

3168 BFITFI JPO3I<N?0Q1?PK=N?0*N>GU<9L 
0KL>O 

3188 BFlTfl GT:>40<!V0WK1?I;4B1X; 
EHB0GWJXJND 

3208 BFITFI QKOFG; = 12VBFHB0E6N=LNQKOKK; 

IB2B 

3228 BFlTfl Q9IQS0S<711121133F8J>F1<@T 
4E=20 

3248 BFITFI H079HIiKBB<B6GIFKBJ7ILFT3T 
IIHEH 

3268 BFITFI E12<SIPQ0=; IFIX4WU103VePL86 
BNL>I 

3288 BFITFI 20MPKO;8N50KFtM>PD<NNPH0D20 
57U1B 

3308 BFlTfl 0!VNNP10BFM>240>J0IFI67E65H 
2KUIJ 

3328 BATH C<VIH<11;3I7D<B8J>M4K<5IH2; 
BB0H 

3348 BATA 9HIE<BFIX4WX15SMJFT?6NLQ05R 
I71SE 

3368 BFlTfl 50HLGTFIX4WX15SMBGT>6HRKO61 
SSKO0 

3388 BFlTfl XJIHV4P424B0E000R0JHN>S00O 
95?F|J 

3408 BFITFI >6NRX4WX 1CHP! H; 

CH X! K.E I BN0B971B 

3428 DATA VKNVOOIU? • E0B! D9NI - JI G<BFIX 
4WX1F 

3448 BFlTfl 5SHX<15; =H3=WI0MFT0J>OFTGU 
4332F 

3463 BFlTfl flX<C==30==5FSGN4B04@<=5I01 
I?W4G 

3488 BATA 832;=0V9F86BNL>2@MPKO, 
8N50KflPI>J 

3508 BFITFI PD<FNI ! UIN>GCH>HF0»04U8>5 
IT4;G 

3528 BFlTfl CXI; =16>VQ<7S<; 

QQ03!6WK0!NI8J>K 

3548 BFITFI FNI86DFM»20I56LR?0BS2Qt1G0 
DUI5B 

3568 BFlTfl PKKSI 17H1<E0>20RCSFII>0000O 
I97BH 

3588 BFlTfl 9NI87BP05F928! 0TL0XRVJ6NFK 
HMX4C 


3608 BATfl =VVH911UP9NIG@D0<B0!II@B1! 
IJ0DB 

3628 BFlTfl KKH1?H>4KW0IOH12H2SG?LU4>! 
2MG2E 

3648 BFITFI 971! H8PX4S629; 

R8Q0BM>MFVI71P71L 
366S BATA VE2<FV01@206I@BB; 

IJX?J@D10>2HVN 

3688 BFITFI A; 17!6>K8T319C13GV0BSI@B!G! 

3708 BFlTfl >K8IK9NIVJQVD90GQVF; 
<E8<P71FI<3J 

3728 BATA F;«FVQX?I0D7VEC7S97S?; 
I0JNFLOA 

3748 BATfl XX4B923GVSCSI0BXPJD<N7!681 
N2L0J 

3768 BFlTfl ft; I>K8UH8NIVJQVB90<NV>X42T 
V20MK 

3788 BFlTfl N0DVX4! WR>09NIG0BVX4UUVFN 
IKL; H 

3808 BATfl XRVHR71!IRM37R4QQV035UT7FN 
1VX40 

3828 BATfl XRVG=STN3?UMQP4HCV!305=V6R 
9W<VE 

3848 BFlTfl 7; MSGNRQUfl; IHJNPB71050721W 
4TU1I 

3868 BFlTfl UH11VLGHE6010LO2AS2CNONE1N 
1CV4L 

3888 BATfl JO1GA0FRSJ;<JW4CRV=VL; 
RP4UV0NIO 

3908 BATfl E2H?SPEQO0BB4F'LHE2<002CS0W 
1CBUF 

3928 BATfl 80IB90QP0>=V9FNBC3E0IXCESO 
0184K 

3948 BATfl 9M2P0IB90G!P0>=V5XPBC3VHIXC 
ESOON 

3968 BRTH R299M2G=I0PLMS12HC9R1LW4XR 
VRSRF 

3988 BATfl ;KTG=IHLI9R14=6HUGJU14=6>K 
N3QJG 

4008 BFITFI HJH7VE0165=B=R1000000J4K4G 
899 IB 

4028 BATfl 7B2EK3H00000SJ3H00000SJ3H0 
0000H 

4048 BFlTfl SJ3H00000SJ3H00960G=SRWV8R 
VSJ3E 

4068 BFlTfl H00000SJ3H00000SJ3H00000SJ 
3H000 

4088 BFlTfl 000SJ3H00000IK09R1 =O0B52M> 
39U4B 

4108 BFITFI 6! MJGT=! M4GTE=N0GTF ! HUFTHU 
GFW1J 

4128 BATfl @3=15RPK078NLI; 

H02UFI2EKH0OI HUGO 
4148 BFITFI 0U1CX10BBLI; 

I ?25«4UVE2H?SP0Q0L 
4168 BATfl TKH0PLRV1TX45; 

0SX41C1O00KONHDT@ 

4188 BATfl L40152I@0L90KB2=NIH0BPOIJG 
B17HC 

4208 BATfl =IB?!B<4KF9FSGN>2VGQVBCV?B 
VQ>1 J 

4228 BATfl ?11HIQ7VSH01VWPFBVBKRJ@FB5 
PNNIL 

4248 BATfl XCESOO1849M24SIVCEEL07MT8J 

X38C 

4268 BATfl =?H7H;VH2<38D?HNQ0P0IJ@B=H 
IH6BB 

4288 BFlTfl 1 ?H=! B?! D>4KB9F! RB>2VGQVDC 
V7BVJ 

4308 BFlTfl Q>l?llHIQ7VS4ri0O0GlOQ<N3BC 
3VNIM 

4328 BATfl XCES00R299M27M>XL9; 

1LX0H<M9VG2F 

4348 BATfl BM>!70OG2>I1930S=MC60TX4X< 
1 U>ME 

4368 BFlTfl B01! 70QP4480JLB0NIC! D9LSFN 
I<FEE 

4388 BFITFI I@0BBlfl!NJ@FB5PXNI>EE@L0S= 
<201G 

4408 BFITFI flEEflL0B9?UKH?PLOUt>JOTH8M 
0=710 

4428 BATfl MKfl9XGFIfl0VG20OIE; DXOIG; 
BS0SOI6H 

4448 BATfl 4U67P6N77OEE4N00F7XE7VEERJ 
0<OflK 

4468 BATfl R04PBB1W7B98<X4RB22L; 
<B1LV90IJ0K 
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Jagten pa det 
forevundne guld 




■ Du er Harrison Ford - den 
store helt der ikke gdr al ve- 
jen for noget som heist. 

Jagten pd det forsvundne 
guld er gdet ind. og du skal 
hente tre bcegre at guld tor at 
tuldfore din mission. 

Ndr du henter bcegrene, er 
der tarer overalt - et sted er 
der en taldlem. et andet en 
dodsflise samt adskillige an- 
dre dodbringende tarer. 

Etter de tre forste bcegre tap- 
pert er bragt i hus, gdr du vi- 
dere til nceste bane. 

Styringen ioregdr via pileta- 
sterne.God jagt.D Jespei Dein 





1 LET yp=0: GO TO 10D0 

2 BORDER 2: FOR n =0 TO 
R m=e TO an PRINT AT «,n 

3 NEXT l» : NEXT ft 

10 LET Z=2: LET X=I LE 
12 LET fl=2*XNT "RND*5) 
2=3*INT (RND *5 ) 


TO 31: 

-n, O 


K i?.»£8 INT fiT la ' 15 J FHFCK W?; IN 

si IF Up 30 THEN PRINT HT 3,»j " 
NU ER DU MRRRISON FORD,DER SKAL 
PRO SKRTTEURGT FDRST SKRL DU 
HENTE 3 GULD-SKRRLE7MEN PRS PRR 
'DDDS-FLISEN'.MEN PRS OGSRR PRR 
FRLDE LEMEN INDENFOR DEN ONDE 
C ZRKEL,NRRR DU HRR GJORDT DET 
KOMMER DU UIDER TIL NRESTE BANE. 

TRYK P-: PRUSE 0: PRU3E 0; CLS 
: LET yp=l: GO TO 2 

29 FOR n = 10 TO 20: PRINT RT 7, 

n; NEXT n 

30 FOR t=10 TO* 20: PRINT HT 17 

, t : NEXT t 

&1 FOR f-7 TO 17: PRINT RT f,l 
0; NEXT f 

32 FOR b=7 TO 17: PRINT RT b,2 

1b7*XNT (RND*9) 

41 IF F i=i£ RND f«l* OR Fi-IB 
RND f=lS THEN GO TO 4.0 

42 IF fi=10 RND f =14 OR f»=10 
RND f=10 THEN GO TO 40 

43 PRINT RT 0,23; PAPER 1, INK 
7;"MEND=AftA" 


50 IF INKEY $ = "8 " THEN LEX X=X ♦ 
1: 5 ^^I^i X =*-i^‘?HEN LET X=X- 


1 56 R I^i&EYi = "7^S»EN LET 2=1- 
1 : b7 R i^ T inkey* = , -6'- Then let z=z + 

1: PRINT RT Z -1 , X ; "Q " __ 

50 IF 2=1 THEN LET Z=2. PRINT 

rt a,x; "O ' 

59 IF X=0 THEN LET X=1 

60 PRINT RT Z,X 

61 LET U = 1 ♦ INT (RND *S) 

62 LET y =1 *INT (RND *5J 

63 IF It 1=1 THEN GO TO 510 

64 IF 2-10 AND X =15 VHEM LET X 
= 9: PRIN V RT Z,x;"ft": PH1NI HT X 

0, 6B ; IF 1.15 RND X.1C THEN LET Z 
=16: FRINT RT Z,X; H": PRINT RT 

1B 70 B IF Z=12 RND X =15 THEN BEEP 

’^l'lF^p.l'fiND Z =2 RND X = 1 THEN 
BEEP .1,7: LET P O =P O »1 .-PRINT R 
T 0,po; INK B; PRPER 0; "f": LET 
p=0: L&T f1=2+INT (RND*sF: LET f 
2=1+ INT (RND*S): PRINT RT 12,1B; 


LET Z=Z + 


Z=2: PRINT 


LET 
LET f 


2=1*INT (RND*B): PRINT RT 12,IB; 

PRPER 0J INK 6;"f“: LET f=10*IN 
T (RNDt9) : LET fi-7+INT (RND *9) 
73 IF p O =3 THEN GO TO 500 

100 IF Z=fi RND X=f THEN GO SUB 

400 

110 IF l> =1 THEN GO SUB 300 

120 IF y=l THEN GO SUB 35« 

129 IF X=fl RND X=F 2 THEN LET » 

and.»»nd-1: PRINT RT 0,d; PAPER 
1; •• LET »l=W-l: IF w<28 THEN G 

O TO 710 

130 IF Z = fl RND X = f 2 THEN BEEP 
.1,6: BEEP .1,7: IF »*nd<=0 THEN 

LET a*="DU HRR GRRET PRR EN DOD 














S-FLI5E"; FOR n- 1 TO LEW at: PRI 
NT AT 5,n;i»(n TO n): BEEP . l,n.- 

NEXT n: GO TO 710 

200 GO TO 50 

300 FOR mil TO I*: PRINT RT n, 
14.; "."^RT n-1,14; "Q M : BEEP .01,0 

301 IF 2 =T> RND X=3 4 THEN LET P « 
B: PRINT RT 12,15;"f": BEEP . 1,- 
2 : LET Z =2: LET X -1: LET Band=B» 
nd-1: PRINT RT 0,w; PRPER 1;" ": 

LET (V-IV-1: IF ttand<=0 THEN SO T 
O 710 „ 

333 NEXT n. PRINT RT 14 , t4 : "D" i 
RT 1®,14;-(|" ' ^ 

310 RETURN 

350 FOR n =11 TO 14: PRINT RT n, 
16;".";fiT n-1,16; 

355 BEEP .01,(1 

360 IF Z=n RND X■16 THEN LET P = 
0: PRINT RT 12,15; "f"BEEP .1,- 
2: LET Z=2: LET X =1: LET nand=B« 
Od-1: PRINT RT 0 , IV; PRPER 1;" ”: 

LET w = 1 * —1: IF mand < =0 THEN GO T 
0 710 „ 

370 NEXT n: PRINT RT 14,16;"□" 

377 PRINT RT 10,16; 

360 RETURN 

400 PRINT RT Z,X; PAPER 2; FLR5 
:G TO 20. BEEP . 1 , 

z,x;"D". if 


H l; •••" : FOR fs0 TO 
f: NEXT f PRINT RT 
»<SS THEN GO TO 700 


■I 


LET t 



23; • 
14 - 1 


402 PRINT RT 0 , IV ; PRPER 

404 LET z =1: LET X*t 

405 LET \it=W-X 
. 407 LET 1 »1 BTIW 1W«?»9) 
i=74lNT (RND *91 

410 RETURN 

lEEP ■ ljl - PR fTnl 

,AT lS.TTT'MHilB": P 
,,24; '• "; RT 14,24; • " 

_ _ PRINT RT 13,25;" "iRT 

14,25;'' BEEP 2.1: PRINT RT 13 

, 26; " "; RT 14,26; r ’ BEEP 2,2: 

PRINT RT 20,0; FLASH l^-POKTEN t 
R RRBEN.GAA DER IND ! ! " : LET Kt = 
1: GO TO 50 

510 IF Z =14 RNC- X =14 OR S =14 «N 
D X=25 OR Z =14 HND X=26 THEN CLS 
; GO TO 7000 

521 IF IOU RNO Xs*>S4 OR 10 14 
RNO X <>25 OR Z<>14 RND X<>26 TH 

EN LET kl*l: GO TO 50 

522 GO TO 50 

700 PRINT RT 10,0;"ha h»,d«f fa 
Idt do not i «ift- st*ns« h«tu 
til" 

--- PRINT RT Z , X; OP 


709 BEEP 1,10. PR 
EN Bl; PRPER 2; "f 

710 INPUT "EN NY 


720 

730 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


SKRTTEUAGT ? 


IF Z*-"J 
CLS : ST 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


1070 POKE 
2000 POKE 


2010 

2020 


POKE 

POKE 


2030 POKE 
2040 POKE 


2050 

2060 

2070 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3100 

3110 


POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


3120 POKE 
3130 POKE 


3140 

3150 

3160 

3170 

4000 

7600 

7610 

7811 

7620 

7621 


U5R 

U5R 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

2 


OP 


THEN RUN 


"U",BIN 1311111 
"U"+1,BIN 1000001 
"U"42,BIN 


U 

( U 

"u 

"u 

"U 

"n 
"n 
"n 
••n 
"n 


' +3,BIN 
1 +4,BIN 
+5,BIN 
• 46,BIN 
'♦7.BIN 


1000001 
1000001 
1000001 
1000001 
1000001 
= , ,w=,-. 1111111 

,BIN 01111110 
+1,BIN 01111110 

- - 01111110 

01111110 
00111100 
00011000 
00011000 
00111100 


42, BIN 

43, BIN 

44, BIN 
“n"45,BIN 

•n" 46, BIN 
"n"47,BIN 


r, 

"P",BIN 00000000 
"P"41,BIN 00111100 


"P"42,BIN 
"P”43,BIN 
"p"44,BIN 
"p"45,BIN 
"P"45,BIN 
"p"47,BIN 


f ‘ 
f 1 
"/■ 
" f ' 
“ f ' 
“ f ' 
“f * 
" f 1 


01111110 
01011010 
01111110 
00111160 
00100100 
= , 00111100 
,BIN 00011000 

41, BIN 00011000 

42, BIN 01111110 

43, BIN 01011010 
- 00111100 

01100110 
01103110 
01130110 


44, BIN 

45, BIN 

46, BIN 

47, BIN 


POKE 
POKE 
POKE 
POKE 
GO TO 

LET Z =14: LET X=2 
LET 11 = 14INT (RND 415) 

LET JU=10: LET p1=0 
LET 12 =5 4INT IRNDtlB) 

BORDER 2: PRPER 5: CLS 
PER 5: INK 0 
7622 LET p5=RND: LET »n =3 
7000 FOR n-16 TO 21: FOR ■=0 TO 
10: PRINT RT n. NEXT »: NE 

XT n 
7903 


PR 



’910 FOR r,=15 TO 21. FOK B-20 TO 
31; PRINT RT n,NEXT S. N 
EXT n 

7993 LET gl=124lNT IRND4B.' . LET 
9».=12 + INT tRND*0>. LET ig=124XNT 
(HND *8) 

7999 PRINT RT El,5t;"9";RT El.gt 
; "#••; AT 21, rg; 


9ND*35.< : LET 


8000 LET p=14IMT tHND»6J 
3035 PRINT HI X.X;"*" 

8006 PRINT RT 21,23; PRPER 7;"ME 
ND = "; an 

8010 IF INKEY*="6" THEN LET X =X 4 
1: PRINT HT Z,X-1;“ " 

8011 IF INKEY"5" THEN LET X =X - 
1: PRINT RT Z,X4l;" " 

0050 PRINT RT Z,X;"B" 

8071 LET Xl=l4lNT (BN 
X2=54INT (RND * 10 ) 

8090 IF X=ll THEN GO TO 8100 
3099 GO TO 8120 

6100 FOR n=Z TO 21;: BEEP .1,(1: 
PRINT RT n,x;"i";RT n-1,x;" " 
3110 NEXT n: BEEP 1,7; PRINT RT 
n -i,x; "••• 

8111 IF Bn >0 THEN LET Z=14; LET 
X-2: LET an=an-l: GO TO 8120 

8112 IF an=0 THEN GO TO 710 
|Jig IF p =1 THEN LET pi=3 

B150 FOR n =3 TO 15. PRINT RT n,p 
5; *"; rt n-i,ps;" " 

8151 IF INKEY0="8" 

1. PRINT RT X,X- 3; 

8152 IF INKEY*t="S ( 

1: PRINT RT Z,X4l; 

EN LET X =1 
8163 PRINT RT Z,X;"A" 

8X54 IF X>10 THEN GO TO 8100 

8190 IF n=Z RND P5=X OR n-Z RND 
P»X THEN BEEP .1,15: PRINT RT Z, 
X, " “ : LET Ju = JU41 

8191 IF JU >20 THEN GO TO 8400 

8192 PRINT RT 15,Ju;"»" 

8200 NEXT fl: LET p =0: PRINT RT 1 
5,0; “MHHHHHflB": beep .31.7: le 
T p5=24lNT(RND*6) 

8300 GO TO 3305 

8400 PRINT RT 3,0; PRPER a; INK 
6; FLASH 1;"NU ER UEJEN TIL SKRT 
TEN KLRR, BHB UUEH ERGEN,DU ER 

DR IKKE BRNGE FOR DE RFD0DE 

RflNDER 7T 

8401 PRINT RT 6,10;"TRYK p": PRU 
5E 0: PAUSE 0 

8405 PRINT RT 3,0;" 


THEM LET X =X 4 


THEN LET Xi 
' ": IF X=0 


X - 
TH 


8406 PRINT RT 6,10;" 

8410 LET Cd=l4lNT (RND *2) 

8420 IF INKEY # = "0" THEN LET X=X4 
1: PRINT RT Z,X-1;" " 

8421 PRINT RT Z,X;"A" 

8423 IF X <9 k THEN GO TO 8420 

8424 IF x=9t RND Cd=l THEN GO TO 
8430 

8427 IF X <26 THEN GO TO 8420 

8428 IF Cd= 2 THEN GO TO 8450 
8430 FOR U-20 TO 14 STEP -1: PRI 


nt rt u,gk;"B";RT u+i,9t; 
8435 NEXT u; pfelNT RT Z,x; 
1;"*": BEEP 1,2: BEEP 1,2: 


*, FLASH 
,2: LET 

Bn *1(1 —1: PRINT RT 21,23; "MEND*" 1 
BO: PRINT RT Z,x;” “;RT Z4l,X,"B 
": LET X =2 

8440 IF Bn < =0 THEN GO TO 710 

8441 GO TO 8410 

8450 FOR b=0 TO 7: BEEP l,b: BOR 

DER b: PRPER b: NEXT b 

8460 LET Z =18: LET X=2: LET de-0 

: LET as-16: LET 51<31 

8500 CLS : TOR n=19 TO 21: FOR ■ 

"? 5gx?V!BS !T INK 1; " B 

8502 PRINT RT 25,31;"*";RT 17,29 


; # ;rt 15,30;-#" 

6507 FOR f-0 TO 18: PRI 
; ; RT f ,5; 'W*. next r 

8509 LET ty>0: LET er = l 


PRINT RT f,0 


8510 IF InI<EY* = "8“ THEN LET X>Xt 
1: PRINT RT Z,X-1;" “ 

8520 IF INKEY$="5" THEN LET X®X- 
1: PRINT RT Z,X4l;” 


8530 PRINT RT Z,X;"*" 

8531 PRINT RT 18,5; ,r » _ 

8550 PRINT RT tU7l4,er;'1 

8551 LET ty=t94l 


8552 IF tym246 THEN FOR e=-l® TO 
10: BEEP .1,«: NEXT e: GO TO 71 

0 

8560 IF INKEY*=“" THEN GO TO 355 
0 

8561 IF de =1 RND X=7 THEN PRINT 
RT 17,7;'#". BEEP .1,-3 

8562 IF d*=2 RND X=9 THEM PRINT 
RT 17,9; •#": BEEP .1,-3 

8563 IP de =3 RNO X=11 THEN PRINT 
RT 17,11;"#": BEEP .1,-3 

3570 ir X =28 THEN LET X=27: PRIM 
T RT Z,X 41; " ": BEEP .1,7: GO TO 
8573 

8571 GO TO 8510 

3573 LET de=de4l 

8580 IF de.l THEN GO TO 8600 

8590 IF dfi=2 THEN GO TO 8610 

8595 IF de =3 THEN GO TO 8620 

S600 PRINT RT as,SB;" ": GO TO 8 

510 

8610 PRINT RT as4l,sa-l;“ “; GO 
TO 8510 

8620 PRINT RT 17,29;" ": GO TO 8 
510 

9000 GO TO 8510 

9999 SRUE "INDY" LINE 1 







Kalender-rytmer 


■ Her pi det sidste er kombi- 
nationsprogrammer blevet 
meget populcere. 

Dette Amstradprogram kan 
siledes klare 3 iorskellige 
ting, der alle har noget med 
datoer at gore. 

For det terste kan du fi en ka- 
lenderudskrilt tor en bestemt 
mined, med tilhorende o- 
rversigt over de personer, der 
har fodselsdag i den pigcel- 
dende mined. Data tor disse 
personer ligger tra linie 1780 
og til 2990. For hver person 
skal der vcere 4 data: mi- 
nedsnummer, dato, navn og 
irstal. Navnet mi hojst vcere 
pi 10 bogstaver, og det sidste 
kan passende bruges til at an- 
give om det er F(odselsdag), 
BCryllupsdag), J(ubilceum) el- 
ler lignende. Den sidste data- 
linie skal hedde »o,o,««,o«. 
Programmet kan ogsi ud- 
skrive en kalender tor et helt 
ir samt tegne dine biorytmer. 
Mineds- og irskalendeme 
kan udskrives pi printer.□ 
Peder A. Pedersen 
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10 SYMBOL AFTER 91 

20 SYMBOL 1.38,126,216,216,234,216,216,222 
30 SYMBOL 1«3C, 118,200,214,214,214,38,220 
40 SYMBOL ASCCJ-) ,36,0,124,198,234,198,198 
30 SYMBOL ASC(-C-),0,0,116,26,126,216,110 
60 SYMBOL ASCCI"),0,0,118,204,214,102,220 
70 SYMBOL ASCO-) ,48,0, 120, 12, 124,204, 118 
80 aO-ASC('t"):bO-A8C( a \ * ) :cO-ASC <■]•) 

90 al-ASCCC) Ibl-ASCC I a ):cl-ASC(*>*) 

100 x-ai:al-aO:aO-x:x-bl:bi-bO:bO-x:x-ci:ci-cO: cO-x 

110 KEY DEF 29, 1, aO,al 

120 KEY DEF 28,l,b0,bl 

130 KEY DEF 26,l,c0,cl 

140 KEY DEF 22,1,A8C(*<•),A8C(* >■) 

130 KEY DEF 19,1,A8C('8*),A8C(•*•> 

160 KEY DEF 17,1,A8C(*♦*),ASC( *#*) 

170 KEY DEF 39,1,ASC(*,•),ASC(*|•> 

180 KEY DEF 31,1,ASC (*.*),ASC ( * : * ) 

190 MODE l:WINDOW 40,1,40,1,24:WINDOW M3,1,40,23,23:PEN 43,3:INK 3,3,24 
200 LOCATE 1,4:PRINT STRING*(39,) 

210 PRINT:PRINT STRING*(11,*#■)|* KALENDER * I STRING*(11,*ft a ) 

220 PRINTSPRINT STRING*(39,*ft*) 

230 LOCATE 11,10:PRINT •1. M)nada-udakr1ft• 

240 PRINT:PRINT TAB(11)| '2. )ra-udakr 1 ft * 

230 PRINT:PRINT TAB(11)|*3. Blo-rytaa* 

260 PRINTIPRINT TAB(11)|*4. Navnaraglstar * 

270 a*-*Tast dat Inakada nuaaar!■:G08UB 3000:x-VAL(x*) 

280 IF x<l OR x >4 THEN a*-*Kun 1 - 4 ■) taataa■:OOSUB 3000:GOTO 270 

290 ON x GOSUB 330,330,1090,1710 

300 MODE l:a*-'Taat M for unu‘:OOSUB 3000 

310 IF x*-*M* THEN 190 ELSE STOP 

320 IF x*-*P* THEN wl-8 

330 IF x*-*P* THEN n2-8 

340 IF x*-*P* THEN 370 EL8E 360 

330 CL8:a*-*Ta*t P)rlntar - 8)k<ra*1G08UB 3000:00T0 320 
360 Hl-l:w2-2 

370 CL8:WINDOW 40,1,40,19,23:WINDOW 41,1,21,1,18:WINDOW 42,23,40,1,18:WINDOW 43, 
1,40,23,23 

380 a*-*Tamt 1ratal (1733 - 2300)*:OOSUB 3030 

390 y-x:lF y<1733 OR y>2300 THEN 380 

400 a*-*Taat a)nad (1 - 12>-:OOSUB 3030 

410 m-x:IF a<1 OR B>12 THEN 400 

420 GOSUB 3100 

430 CL8:CL8 4l:CLS 42 

440 GOSUB 3230 

430 LOCATE 42,1,1 

460 IF h2-8 THEN PRINT 48 

470 IF n2-8 THEN PRINT 48 

480 PRINT 4w2, *F\DSELSDAGE M.V. • 

490 PRINT 4m2 
300 GOSUB 3380 

310 a*-’\nakaa ny a)nad 7 (j/n)*:GOSUB 3000 
320 IF x*< > *N* THEN 400 

330 a*>*\nskas nyt >r 7 (j/n)*:GOSUB 3000 
340 IF x*<>'N a THEN 380 ELSE 190 

330 MODE 2:WIND0W 40,1,80,2,21:WINDOW 43,1,80,23,23 

360 a*"*Taat Jratal (1733 - 2300)•:GOSUB 3030 

370 y-x:lF y<1733 OR y>2300 THEN 360 

380 a*-*Taat Plrlntar - S)klra*:GOSUB 3000 

390 IF z*-*P* THEN hO-8 ELSE nO-O 

600 a*-’ 4*‘SPACE*(24)♦*»**SPACE*(24)♦”ft**SPACE*(24)♦ *** 

610 n* (1) - * * JANUAR* *STR*(y)* FEBRUAR•»STR*(y)ft 

MARTS* *STR*(y)ft* 

620 n*(2>-* ft APRIL * «8TR* (y) ft MAJ * *8TR*(y)ft 

JUNI**STR*(y)♦ • ft* 

630 n*(3)-* ft JULI■♦STR*(y)ft AUGUST* *STR*(y)ft 

SEPTEMBER * *STR*(y)♦* ft* 

640 n*(4)■* ft OKTOBER* *STR*(y)ft NOVEMBER**8TR*Cy)♦* ft 

DECEMBER*♦STR*(y)»* ft* 

630 c-l:x-l:CLS 

660 PRINT 4w0,* *|STRING*(76,***) 

670 PRINT 4h 0,a* 

680 PRINT 4w0,n*(c> 

690 PRINT 4h 0,a* 

700 PRINT 4m 0,* ft MA TI ON TO FR L\ 8\ ft MA TI ON TO FR L\ 8N ft MA TI ON TO 

FR L\ S\ ft* 

710 PRINT BnO, a* 

720 FOR 1-1 TO 6 
730 p*(i>-* ft * 

740 NEXT 1 
730 v—1 

760 FOR m-x TO x*2 
770 GOSUB 3100 

780 a*-* * 

790 FOR 1-1 TO a 

800 »•-»•♦* 

810 NEXT 1 

820 FOR 1-1 TO n 

830 d*-RIGHT*(STR*(I),2) 

840 m*-a**d** a • 

830 a-a«l 

860 IF NOT a-INT(a/7)*7-0 THEN 890 
870 p*(V)—p*(v)* ft • 

eeo a-Olv-v*!:••-• * 

890 NEXT 1 

900 FOR 1- a TO 6 

910 

920 NEXT 1 

930 p*(v)-p*(v)♦«•♦* ft * 

940 IF LEN(p*(6))-3 THEN p*(6)-p*(6)«SPACE*(23)' 

930 IF LEN(p*(6))-28 THEN p*(6)-p*(6)*8PACE*(23)♦** * 

960 V—1 
970 NEXT a 
980 FOR 1-1 TO 6 
990 PRINT 4 mO,P*(I) 

1000 PRINT 4w0,a* 

1010 NEXT 1 

1020 PRINT BnO,* * I STRING*(76,***) 

1030 a*-*\nakaa nyt kvartal (j/n)7*:GOSUB 3000 
1040 IF x*-*J* THEN C-C*l 
1030 IF x*-*J* THEN x-x*3 

1060 IF x-13 THEN y-y*l:lF x-13 THEN C-HIF x-13 THEN x-1 
1070 IF x*-*J* THEN 1080 ELSE 190 
1080 CLS:GOTO 660 

1090 MODE l:WINDOW 40,1,40,1,24:WINDOW 43,1,40,23,23 

1100 INK 0,0:INK 1,26:INK 2,12:INK 3,22:B0RDER 0:PAPER 0:PEN I 

1110 LOCATE 1,1‘LINE INPUT *Taat navn *|na* 

1120 LOCATE 1,3: INPUT 'Fldaaladato (ddaaaaaa) "Mo* 

1130 da*-LEFT*(to*,2):ma*-MID*<♦o*.3,2):aa*-RIGHT*(fo*,4) 

1140 bd-VAL(da*):bm-VAL(aa*>:by-VAL(aa«) 

1130 IF bd<1 OR bd >31 THEN 1120 
1160 IF ba< 1 OR ba>12 THEN 1120 

1170 LOCATE 1,3:INPUT *Taat atartdato for blorytaan (ddaaaaaa) *lbl* 

1180 da*-LEFT*(bi*,2>:ma*-MID*(bl*,3,2):aa*-RIGHT*(bl*,4) 

1190 ad-VAL(da*):am-VAL(aa*):ay-VAL(aa* J 
1200 IF ad<1 OR ad>31 THEN 1170 
1210 IF aa<1 OR a»>12 THEN 1170 
1220 IF ay<by THEN 1170 
1230 CLS 

1240 yr-by:»m-ba:dd-bd:GOSUB 1320 
1230 bx-x 

1260 yr-ay:aa-aa:dd-ad:GOSUB 1320 
1270 ax-x 

1280 xx-ax-bx*l 

1290 pd-xx-INT!xx/23)»23 


1300 ad-xx-INT(xx/28)*28 
1310 fd-xx-lNT(x«/33)*33 
1320 CLS 

1330 DEG:ORIGIN 0,100 
1340 FOR n-0 TO 639 
1330 y-SIN(n*pdftl6) 

1360 PLOT n*320/313,y*80,l 
1370 y-SIN(n*ad«16) 

1380 PLOT n»320/237,y*80,2 
1390 y-SIN(n*fd«16> 

1400 PLOT nft320/218,y*80,3 

1410 NEXT n 

1420 MOVE 0,0 

1430 DRAW 640,0 

1440 MOVE 0,0 

1430 DRAW 0,90:DRAW 0,-90 

1460 FOR 9-I6 TO 642 STEP 16 

1470 MOVE 1,-90 

1480 DRAW 9,90 

1490 NEXT 9 

1300 LOCATE 1,2:GOSUB 1600 
1310 END 
1320 ly-0 

1330 IF INT(yr/4)*4-0 THEN ly— 1 

1340 IF ly AND INT(yr/100)*100-yr THEN ly-0 

1330 IF I NT (y r /400) *400-y r THEN ly—1 

1360 x-INT(30.37ftaa>*INT(363.23*yr-393.23)*dd 

1370 IF aa>2 AND ly THEN x-x-1 

1380 IF aa>2 AND NOT (ly) THEN x-x-2 

1390 RETURN 

1600 PRINT 'BIORYTME for •|ra* 

1610 PRINT:PRINT *Fldt dan *|bd| a .*|ba|*.*|by 

1620 PRINT:PRINT *Kurvan atartar dan a iad|*. a |aa|*.*|ay 

1690 WHILE INKEY(47) — 1:WEND 

1700 GOTO 190 

1710 MODE 2 

1720 LOCATE 1,3:PRINT *TILF\JEL8ER 00 (NDRINGER AF NAVNEREGI8TER* 

1730 PRINT:PRINT *HU8K at aava prograaaat aftar (ndringar I navnaraglatarat* 

1740 PRINT 

1730 WHILE INKEY(47)■-1:WEND 
1760 LIST 1780 - 2980 
1770 STOP 

1780 DATA 7,23,*Padar F*,1930,4,4,*Ingar F*,1931 

1790 DATA 3,23,*Ing*Pad B*,1984,6,20,*Carla F*,1909 

1800 DATA 3,13,‘Banta F a ,1936,1,10,*Bant*8va B*,1983 
1810 DATA 9,18,*Lana M F*,1934,7,10,*Lan*JIr B*,1978 

1820 DATA 2,20,*JIrgan M F*,1949,4,2,*Svand F a ,1930 
1830 DATA 9,18, a J J rgan S F*,1927,3,31, a L1 a S F*,1930 
1840 DATA 1,21, a 01a 8 F a ,0,3,13,*Thua F*,1982 
1830 DATA 8,22,‘Nynna F*,1978,3,12,*Jaapar F*,1984 

I860 DATA 3,28,*Naya F a ,1960,8,30,*0ytta F*,1936 

1870 DATA 12,6,*01a P F*,1933,6,8,-Jan Rax F a ,1941 
1880 DATA 10,8,*Lan*Jan B*,1963,9,24,"Lana R F*,1941 
1890 DATA 7,8,'Dortha R F a ,1969,11,22, a Vlggo F*,1929 
1900 DATA 12,8,*Anna*Vlg B*,1948,3,23,'Anna F*,1931 

1910 DATA 3,7,-Aata F a ,0,12,1,*Knud S F a ,1924 

1920 DATA 0,0, a . a ,0 

2980 DATA 0,0,*. a ,0 

2990 STOP 

3000 PRINT CHR*(7) 

3010 PRINT *3,a* 

3020 z*-UPPER*(INKEY*):IF x*-** THEN 3020 
3030 PRINT *3, SPACE*(39) 

3040 RETURN 
3030 PRINT CHR*(7) 

3060 PRINT *3,a* 

3070 INPUT x 

3080 PRINT B3,SPACE*(39) 

3090 RETURN 

3100 a-y*l*31ft(a-l)*INT<(y-1)/4>-INT(3ftINT((y*99)/100)/4) 

3110 IF a>2 THEN a-y*l*31ft(a-l)-INT((4*a«23)/10)*INT(y/4)-3*INT((INT(y/100)*l)/4 

> 

3120 a-a-INT(a/7)»7 
3130 IF a-0 THEN a-7 
3140 IF a-1 THEN a-8 
3130 a-a-2 

3160 IF a-2 GOTO 3200 
3170 n-31 

3180 IF a—4 OR a-6 OR a-9 OR a-11 THEN n-30 
3190 GOTO 3220 
3200 n-28 

3210 IF y-INT(y/4)ft4-0 AND NOT y-INT<y/100)ftlOO-O OR y-INT<yMOO)#400-0 THEN n-Z 
3220 RETURN 

3230 IF a—1 THEN PRINT BnI,TAB( 6)1 *JANUAR*|y 
3240 IF a—2 THEN PRINT BnI,TAB( 6)I'FEBRUAR*|y 
3230 IF a-3 THEN PRINT BnI,TAB( 7)|‘MARTS*|y 
3260 IF a—4 THEN PRINT BhI,TAB( 7)|'APRIL*Iy 
3270 IF a—3 THEN PRINT BmI,TAB( 8)I*MAJ*|y 
3280 IF a-6 THEN PRINT BnI,TAB( 8)1 *JUNI*|y 
3290 IF a-7 THEN PRINT BmI,TAB( 8)I *JULI*y 
3300 IF a—8 THEN PRINT BnI,TAB( 6)I’AUGUST*Iy 
3310 IF a—9 THEN PRINT BnI,TAB( 4)|‘SEPTEMBER*|y 
3320 IF a-10 THEN PRINT BnI,TAB( 3)I‘OKTOBER*Iy 
3330 IF a-11 THEN PRINT BnI,TAB( 3)I‘NOVEMBER*|y 
3340 IF a-12 THEN PRINT BnI,TAB( 3)I‘DECEMBER*|y 
3330 PRINT BnI 

3360 PRINT Bn1,*MA TI ON TO FR L\ S\* 

3370 PRINT BnI 
3380 a*-** 

3390 FOR 1-1 TO a 
3400 a*-a*** 

3410 NEXT 1 

3420 FOR 1-1 TO n 

3430 k*-STR*(|>:I*-RI0HT*(k*,2) 

3440 b*-b**|**‘ • 

3430 a-a*l 

3460 IF NOT a-INT(a/7>*7-0 THEN 3320 
3470 a-0 

3480 IF LEN(a*)>20 THEN a*-LEFT*(a*,20) 

3490 PRINT BnI, a* 

3300 PRINT BnI 
3310 a*-** 

3320 NEXT 1 
3330 FOR I-a TO 6 
3340 a*-a*» * 

3330 NEXT 1 
3360 PRINT BnI, a* 

3370 RETURN 

3380 FOR 1-1 TO 64 

3390 READ aanad,dato,navna*,aar 

3600 IF aanftd-o THEN 3670 

3610 IF manadOa THEN 3660 

3620 d*-STR*(dato):d*-RIGHT*(d*,2) 

3630 fa*-d*»*. •♦navna*** • 

3640 aldar-y-aar 
3630 PRINT Bn 2,fa*| 

3633 PRINT Bn 2, USING *BB*|aldar 
3660 NEXT 1 
3670 RESTORE 
3680 RETURN 
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Mr. Brown 


■ Du er Mr. brown, der har 
en frygteUg opgave loran sig. 
Du skal nemlig igennem tre 
livsfarlige labyrinter med 
elektilske vcegge, og masser 
al larlige uhyrer der er para- 
te til at tort cere dig. 

Du starter med 5 liv som ha- 


stigt og sikkert nedtaBller un- 
dervejs i dette Commodore 
64 spil. Du tdr ekstra liv. hver 
gang du gennemforer en la- 
byrint. og styringen toregdr 
med joystick i port 2. alts* et 
rigtigt arkadespil.D 

Carsten Andersen 



r»N 


10 PRINT"CCLR) *• ; POKE 53EB0.0: POKE 53PB1 

. « 

B0 PRINT”CGUL,CRSR MED 1 * . CRSR H0JRE7) . » » 

30 PR I NT *' C R0D . CRSR H0JRE7 5 I I I I I I II 

II II I I I I ” 

40 PRINT”CCYrtN,CRSR H0JRE7J | I hr-* I-1 *- 

-r-* I II I I I I ” 

50 PRINT”C GR0N , CRSR H0JRE79 I I I I III 

I I I I I I I I I ” 

G0 PR I NT ” C L . BLBB . CRSR H0JRE7 J » * ■* - 1 - 

70 PRINT"tR0D,CRSR MED.CRSR M0JRE33 
30 PRINT”CCRSR H0JRE33|C| CORSTEN B 
DERSEM ISOS’* 

30 PRINT"(CRSR H0JRE3) *-' ” 

100 GOSUB 5000 

110 PR I MT ” C CLR . MO I D . CRSR H0JRE13) INSTRU 
KTIDM” 

1P0 PRIMX”CR0D,CRSR H0JRE13)- 

130 PRINT”CCYON.CRSR NEDiUHELDIGE MR. B 
RGUIN ER FBNQET I 3 FORL IDE” 

140 PRINT”LOOYRINTER . C L ILLO . SPOCE1MR . B 
RGUIN SKftL POSSE POO” 

1 50 PR I NT ” C CRSR NED 5 ML!RENE . SOM ER ELEK 

TRISKE. OB POO DE ” 

1S0 PRINT”CCRSR NED 5 UBEREONELIBE UHYRER 
. DER JOBTER BOM." 

170 PRINT”CBR0N.CRSR NED1DET ER DIN OPB 

OUE OT CEDE MR. BROUN" 

1O0 PRINT”C CRSR NED 1 TRYOT IBENNEM LOOYR 

INTERNE.” 

130 PRINT”CL . BLOO . CRSR NED D MR . BROUN MO 
R S LIC* ♦ 1 EKSTRO Lie* e*ED” 

r *00 PRINT” CCRSR NED 5 OFSLUTN I NB OE MC*ERT 

LOOY RINTOESNIT.” 

B10 PR I NT ” C R0D . CRSR NEDS . CRSR H0JRE10) C 
JOYSTICK I PORT c?> ” 

SS0 PR I NT ” C L . I3R0N . CRSR NEDP . CRSR M0JRE7 

1TRYK SPOCE EOR OT STORTE” 

030 BET O* : IE n*- ” ’’THEN 350 
B40 IE 0*0" ”TMEN 030 
350 0—0^1:D—5 

300 S1— S3S:SS —145:U1-14P:UP—03:U3-4B:U4 
— P04 : US —70 s UO —03 i U7-1 1 0 : LJO — P04 
370 US—P30:U0—33:Ml—PPP:MP—170 

1000 PR INT”C CLR) ” : POKE 53PQ1.0 : POKE 53P 


1010 PR I NT ” C UR0N . CRSR M0.JRE3- 


10P0 PRINT- 
1030 PRINT’ 


CCRSR M0JRE14 

•4" 

C CRSR M0 J RE 14 

J RE 1 4 


10*10 PR I NT” CCRSR Mi 

4 

1050 PR I NT ” C CRSR M0JRE14 


10O0 PR I NT ” C CRSR M0JRE14 

-r -4- -4—* •—4- 4” 

1070 PR I NT " C CRSR M0JRE14 
4“ —♦■ -4- ■+ “4” 

10O0 PR I NT ” C CRSR M0JRE14 
+ + + ■+ +” 

1030 PR I NT "CCRSR M0JRE14 
■f -4* -r -4- ■+” 

1100 PR I NT ” C CRSR M0 J RE )-f 

; D ” -4- -4- 4 4 -4” 

1110 PR I NT ” C CRSR M0JRE14 
-4- -4 -4- -4- -4” 

11P0 PRINT "CCRSR M0JRE14 

L -4 -4 -4- -4- -4” 

1130 PR I NT ” C CRSR M0JRE14 

I -4 4- -4 -4 -4-” 

114 0 PR I NT ” C CRSR M0JRE14 


1 150 

4 

1 1O0 

-4 4 

1 170 

-4 4 

1 1 O0 

4- 4 

1 1 30 

4- 4— 

1P00 

4- 4- 

1P1 0 

4 

1PP0 

4 

1 P30 

4—i 

1 S40 

li 
IS 
1 ! 
U4-1PI 
1370 


L 350 


PR I NT " C CRSR M0JRE14 4-4 4 

4 4 4 4" 

PR I NT " C CRSR M0JRE14 4-4 4 

PRINT ” C CRSR M0JRE14 4 4 4 

4 4” 

PRINT”C CRSR M0JRE14 4 4 4 

4 4’* 

PR I NT " C CRSR M0JRE14 -*• 4 

• • 4" 

PRINT"C CRSR M0JRE14 4 

4 HI m I I I I 4” 

PRINT"C CRSR M0JRE14 4 

4" 

PR I NT " CCRSR M0 J RE 1 4—i r-4—« r 

4” 

PRINT”C CRSR M0JRE ) || ■ r ♦ I I . r4 

f-4” 

PR I NT ” C CRSR M0 JRE ) ♦-444444-4 14 I « I I I I 
1 4 ****** I I I I * * I I ” 

BOTO 4000 
O — 0-*-l : D — D1 

SI—037 : SB—1O0 : U1 — 130 : US—14 0 : U3 —70 r 
i : US—1OS : UO —O0 : U7—IBS : UO—S03 
U3—S30:U0—73:Ml—O0:MS—O0 

PRINT”CCLR1”rPOKE 53SO!.0:PUKE 53S 


S010 

PRINT”C 

L . R0D 

. CRSR M0J RE )44— 

11*11111 

S0S0 

PR XNT”C 

CRSR 

M0JRE 1 4 
4" 

*-” 

4—* 


S030 

PRINT"C 

CRSR 

M0 JRE 5 4 
4” 

4 


S040 

PRINT”CCRSR 
44 

M0JRE 14 
4” 

4 


S050 

PRI NT”CCRSR 

M0 JRE 5 4 

4 



S0G0 

S070 

S0B0 

S030 

*- 

S100 

SI 1 0 

S1S0 

4 

SI 30 

4 

SI 40 

4 

SI 50 

4 

S1O0 

4 

SI 70 
SI O0 
SI 30 


PRINT"C CRSR M0JRE14 
4 44 4” 

PRINT”C C RSR M0JRE14 

PRINT"CCRSR M0JRE14 

PRINT"C CRSR M0JRE14 

PRINT"C CRSR M0JRE 1 4 
4 44 4” 

PRINT"C CRSR M0JRE14 
44 4 4” 

PRINT”CCRSR M0JRE14 

III 4-” 

PRINT"CCRSR M0JRE14 

PRINT"CCRSR M0JRE14 

PRINT"C CRSR M0JRE14 



PRINT"CCRSR M0JRE14 

I I I ■ ♦ • # 4* 4” 

PRINT”CCRSR H0JRE)4 

PR I NT’’CCRSR M0JRE14 
PRINT"CCRSR M0JRE14 


4” ; D”44 
4L I CJ4 


SS00 PRINT"CCRSR M0JRE14 


?S 30 
?S40 


PRINT”C CRSR M0JRE14 
4” 

PRINT”C CRSR M0JRE14 

4” 

PR I NT ” C CRSR M0JRE14-. 

•4” 

PRINT "CCRSR M0JRE144- 


BOTO 4000 
O —0^-1 : D — D1 

SI — 155: SS —O0 : Ul—40 : US—150 : U3 — SS3 : I 
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4 ”lfi3 : U5-B38 : UR-104 : U7-P07 i IJQ-B4 
5S7G 9 U3—133: UB-10B: Ml-114 : MP-5H 

3000 PRINT"CCLR5":PDKE 53EQ1. . 0 : POKE 53E 

60.0 

30X0 PRINT* 


CCYftN.CRSR M0JRED- 


3050 PRINT"CCRSR M0JRE1-*- 

3030 PR I NT ” C CRSR M0 JRE D -4- 

3010 PR I NT " C CRSR M0 J RE 5 -4- 

-4- -f ■+” 

3050 PR I NT •• C CRSR M0JRE3-f- 

*-+ -I- -*-•* 

3050 PRINT"CCRSR M0JRED-*- 

*- -4- -r- -4-” 

30-70 PR I NT " C CRSR M0JRE1-*—*- 

PR I NT ” C CRSR H0JRE )-*-M 


3050 

30S0 PR I NT ** C CRSR H0JRE 5- 
-4-” ; O ”-f- -4- -4-" 

3100 PRINT”C CRSR H0JRE3- 


-4-*-L I U-f-4- -4-4- 

3110 PRINT"C CRSR 

3150 

PRINT"C CRSR 

3130 

PRINT”CCRSR 

1 II 1 1 4 

31*40 

PRINT"C CRSR 

3150 

PRINT”CCRSR 

3160 

PRINT"C CRSR 

3170 

PRINT"C CRSR 

3160 

PRINT”CCRSR 

31S0 

PRINT"CCRSR 

3500 

PRINT”CCRSR 

3510 

PRINT ”C CRSR 


32^0 PR I NT ” C CRSR M 0 J R E )- 


3530 PRINT"CCRSR 
35*40 PR I NT '• C CRSR 


H0JRE 3- 
i I '* 

H0JRE 3- 


3550 SOTO *4000 

*4000 X — *40 r Y — 50 : POKE U*30,0: PUKE U ♦ 3 1.0 : 

POKE U, X : POKE 1 . Y : QOSUB *4510 

*4010 POKE U^5 .Six POKE U*3. S5 : POKE W»4 , U 

1 s POKE U-*-5.05 : POKE U»B,U3: PUKK . U4 

*4050 POKE U*B,U5iPOKE U>3. UB: POKE U>10, 

U7:POKE U*11,UB:PDKE U+15.U9 
: POKE U-*-13.U0 

*4030 POKE U*14 . Ml : POKE U«-15 . M5 : POKE U*5 
555:POKE U*5B.555:POKE U+37,14 
:POKE U*3B.3 
*40*40 POKE U + 51.3 

*4050 POKE U,Z:K-K+1: IF K —50 TMEN QOSUB 

5500:POKE U‘51.5TS*3 

*4050 JM—13—CPEEKC 56350 1 OND 151 
*4070 I E JM-0 TMEN *4150 

*4050 POKE 5*4536 . IS : POKE 5*4553. 153: POKE 
5*450*4 . IS : POKE 5*4550 . *40 : POKE 5*45*73.500 
*4030 POKE 5*4553.150 : POKE 5*450*4.0 
*4 1 50 I E JM-1 TMEN V —V—*4 

*4130 I E JM-5 TMEN Y —Y-*-*4 

*41*40 IE JM —5 TMEN X — X-**4 

*4150 I E JM —4 TMEN X —X —*4 

*4160 IE JM —5 TMEN X—X—3: Y —Y —3 

*41-70 IE JM —6 TMEN X — X — 3 s Y — Y-*-3 

*4100 IE JM —3 TMEN X —X-*-3 : Y —Y —3 

*4130 I E JM—10 TMEN X —X-»-3: Y —Y-*-3 
*4500 QOSUB *4510: QOTO *4050 


I : POKE S3 


50**0 

POKE 

u 

S^D.Q: 

NEXT 

D 

5050 

RETURN 

5060 

DOTO 

0 

.555.500.1. 

5 

5070 

DOTO 

7 

.3.1 71 

. 1 76 . 

3 

5000 

DOTO 

0 

0 . 0 . 0 . 

w . 0 . V 


5030 

DOTO 

3 

SS . 6 ** . 

5.555 


51 00 

DOTO 

5 


i*- 

4250 1 •=■ I■ i:I X C 5 1 ;• 7 S 3 — 3 THEN **-1MM 

1 ' 4 “ If F*EEK:CS3e-70 3»3 THEM 1300 

PEEKC53E-7B3-1 THEM 4300 
•4E50 RETURN 

• 1 “> = EOKE 54B75*B . BO : F*0 

^aic/'e , 15 

4310 HOKE SME273 . 1 , i . POKE 54E7B-4,1BO 
FOR Ul —C B TO BO ; POKE 5330 
<4(0.355 

222“ EOKE 53301.355 : 30KE 53300 . e> : NEXT U) 
= POKE 513T34-H . 130= POKE 0-31.0 
5350 0-0—1;IF 0—0 THEM 5500 

5350 OM O OOTO 1000.3000 3000 

5500 Q —S—1;POKE 0-31.0 
5510 OM O GOTO 1350.3550 5BOO 

5000 ^-53353 : HOKE 3050.13;HOKE 3051.15: 

= 2 r ° E057';30KE L. IS: NEXT I_ 
MEXT^M FJ-O TO S3 : REBO O ; HOKE 333—M .Os 

MEXT B M EOR rj ~°’ TO S3;RE3D 3 : POKE 53B-N . P : 

MEXT <ZI M EOR N ~‘° TQ B3:RE30 E ; POKE 3BO-N . E : 

IS. 10: FOR 13— 1 TO -7: POKE U + 3 

1.0.0.0.0.0,51.0 0 157.6*4 1 

* • 500 . 1 . SSS . 500.5,1 . r 9 1 r~* 7 2^1 2 * 4*4 * 

n '' T ' S ' ,, 55, B*44 I 7.551,544 ! 7.131,100 

3*4.5*40.0.555 . 135.0.63.0 
7.0.0.01,6*4. 0 . 01 .0*4. 0 . 0 . 0 , 

5S • 1 92 .5.0.6*4.5.555.6*4,5.5 
. 5.555.6*4.5.555.6*4 

_ _ . — .6*4.5.555.6*4.5.0.6*4.5.55 

4 • e • 0 • Bl * • 5.555.6*4.5.555.6*4.5.555.6*4 

5110 DOT O 5.555.6*4.5.555.6*4,5.555 6*4 5 

555.6*4.5.0.6*4.3.555 . 1 SS 

51^0 DOT O 0.0.0.0.0.0. IP, 0, 1S5.3.3.0 « 

50** .0.0. 166.0.5,1*70.0.5.536.0.6,536.6*4 ‘ 

5130 OOTO -70.1-70.66 . '70 . 166.66.66.1 70 6*4 

. B . 55*4.6*4.5.506.0.5.55*4.0 5 1 70 0 

0 * 0 0 0 DrtTn 0 * 1GQ .0.0.50*4.0.1.654 \ 0.1,63.0 

5500 3— INT C B-RNDC 1 1 J*5: K — 0 : RETURN 

O ^ 500 PR I NT •' C CLR 3 ” POKE 53560.0: POKE 535 

li?Q 0 ME R DUER" L °LOO.CRSR NED5.CRSR M0JRE 
pS5S0jPRINT-C CRSR NED. CRSR M0JRE131NYT 3 

5530 QET 0»:IE OS-"TMEN 5530 

55*40 I E O* — "J "TMEN QOTO 5570 

-N "TMEN PR I NT " C L I LEO . CRSR NE 

05.CRSR M0JRE33DET ER DO I ORDEN — 300 

STOPPER U X " 

5560 EOR I —0 TO 6000 : NEXT : POKE U-*-51.0:P 

RINT"CCLR>"xEND 

5570 POKE U«51.0 : POKE U-*-53.0 : RIJN 
5600 PRINT”C CLR 3 " 

5610 EOR Q —5 TO IS STEP 5 : POKE U*-f3 . 1 30 - 

NEXT □ : FOR M —*4 TO 1*4 STEP 5 

:POKE U^M .50—M—55:NEXT M 
5650 POKE U. 155: POKE U-*-1,50 : POKE U + P3.1 
: POKE U-*-5S . 553 : POKE U-^51.553 
5630 PRINT"CL.R0O.CRSR NEDS,CRSR M0JRE5 
5TILLYKKE — MR. BROUN ER REDDET" 

56*40 PRINT "CCYON. CR SR NED5 . CRSR M0JRE51 

5650 PRINT"CCRSR M0JRE51I 

5660 PRINT"CCRSR M0JRE5 J | 

5670 PRINT”CCRSR M0JRE51I 

5660 PRINT "CCRSR M0 JRE5 5 *»- 


56S0 EOR I—0 TO 3000:NEXT:QOTO 5510 
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Samler du pa programmer 

Sa kan du ikke undvasre SOFT. Danmarks eneste, rigtige softwaremagasin. 
Hver anden maned finder du store og sma programlistninger til alle markedets 
kendte computere - fra ZX-81 over Commodore 64 til IBM PC. 



SOFT’ spilredaktion er ogsa pa faerde i 
hvert nummer. Laes om de nyeste og bedste 
computerspil til netop din datamat. 


Det naeste nummer 
til samlingen 

udkommer den 24. oktober 













-T 

* 


James Bond 
vindere! 


De 10 heldige vindere al vo- 
res James Bond konkurrence 
fra sidste nummer er nu fun- 
det. 

Det tog en grum tid al gen- 
nemgd alle de indsendte ku- 
poner og vi er helt overvcsl- 
det over den respons konkur- 
rencen hargivet. 

Vi har desuden fundet ud af 
at antallet af James Bond film 
ikke som opgivet er enten 8, 
10. 14 eller 24. men snarere 
16 . Vi har dog godkendt alle 
som har svaret 14 ved sporgs- 
mdlet. 


Vlnderne al "A View to a 
Kill" splllene er. 


Lars Ulso 
Bjornovcenget 44 
8381 Mundelstrup 
Commodore 64 

Johnny Jorgensen 
GladsaxeveJ 164 
2860 Soborg 
Commodore 64 

Jonas Krai 

Binderup Strandve) 33 
6091 Bjerl 
Commodore 64 

Marlin Erlksen 
Holmeve) 29, Annisse 
3200 Helslnge 
Amstrad 

Jess Nielsen 
Bryggerlve) 14 
9460 Brovst 
Commodore 64 


Birger Clausen 
Gl. Abenrdve) 15 
6400 Sonderborg 
Commodore 64 

Karl Vtnther 
Vlnkelve) 18 
8870 Langd 
Spectrum 

Jesper Enager 
Trommeslagerve] 21 
4660 Store Heddlnge 
Commodore 64 

Jan Schack Andersen 
Nybogade 5 
8700 Horse ns 
Commodore 64 

Henrik Skitter Nielsen 
Tomb}erg 31 
8732 Hovedgftrd 
Commodore 64 


Vi mangier COMMODORE 64 
programmer 

Har du lavet nogle gode 
programmer, og kunne du 
tcenke dig at tjene nogle hur- 
tige kroner? Sd send dem 
straks ind til SOFT SPECIAL. 
Vi kan tilbyde skattefrie ho¬ 
nor arer, helt op til 1000 kro¬ 
ner. 

Send dit superprogram til: 
SOFT SPECIAL 
St. Kongensgade 72 
1264 Kobenhavn K. 


Glced dig til den 


19. december. 


NaBste nummer bliver vores store fedselsdagsnummer. 
KcBmpesektlon med test at de hotteste spll fra England. 
Sterre og tydeligere ud Ustninger til alle computere. 


Glgantudvldelse al Commodore 64 og Amstrad programmeme. Hvad slger du til en Amstrad assembler? 
Til 64'eren kan vt tilbyde et supergodt Hpsprogram. 

VI har selvtelgellg ogsd en spcendende artikel, der hovedsagellg drejer sig om SOFT(ware). 
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■ Her er et program til en 
uudvidet VIC-20, der hjcelper 
dig med at detinere dine 
egne karakterer. Mens du 
tegner kan resultatet ses pd 
en karakter ved siden at. Ndr 
brugeren omsider er helt til- 
treds, kan karakterens data 
fremtrylles ved et tryk pd F7. ■ 

Kim Berg Hansen 





r\ — #1 

y® 



; </-'*; 
/ 



HCT 

Mam Chi Thoysen 


■yyy. 

w 


3 PRINT"nSBMSWSS VENT LIDT 

5 POKES2,28 : P0KE56,28 : F0Rfl=71 68T07679 : POKER . PEEK <fl+25600 > 

6 F0Rft=7448T07455 : POKER • 255 : NEXT • POKE-36879.- 25 : POKE650 , l28 


NEXT:P0KE36869,255 


1@ PRINT" rB K ft R fl K TER DEFINERIN 0" 

20 PR I NT "mi STVRER CURSOREN RUNDT Pftfi ET FELT PRR 3*8 PRIKKER V.H.fl. " 

30 PRINT"TftSTEPNE : P L ■ 

40 PRINT "DU SKIFTER NEI.LEM TEGNE/SLETTE V.H.fl. Fl" 

50 PRINT"PRR KRRRKTEREN VED SIDEN RF. KAN DU F8LGFMED I TEGHERRBEJDET" 

60 PRINT"I LILLE FORMAT. STASTER DU F7, FARR DU DE TAL DER SKAL TIL" 

70 PRINT"FOR AT DEFINERE DIN KARAKTERER. W • TRVK EN TAST"; 

100 IFPEEK(197> =64THEN100 
106 F0RA=7168T07175:POKER,O:NEXT:PRINT" H" 

120 FORA*1T08:FORD*1T08•P0KEA*22+B+7657.46:P0KEA*22+B+38377,0:NEXT:NEXT A=4:B=4: 
l>-,l 

130 P0KEA*22+B+7657.35-IFC=-1THENP0KER*22+B+7657.46 
140 P0KEA*22+B+38377,0: GET A* IFA$="»"THENO-C 


ST ASTER DU F7, 
KARAKTERER. 


FARR DU DE TRL I 
S • TRVK 


SKAL TIL" 
TAST"; 


130 P0KEA*22+B+7657.35-IFC=-1THENP0KER*22+B+7657.46 
140 P0KEA*22+B+38377,0:GETftf IFA$="«"THENC=-C 
1.50 I FA** "ll" THEN 170 

160 ft=R+<ft*="P">-<A$=". "> :B=B+<A**"L">-<fl*=" "> ■ R=fl4-<A=* :'-<H=0> : B*B+<B=9 WB=0)l 
GOT 0190 

1 70 PR 1 NT " tfSSSrtSWWSSM" 

180 FORA*1T08 : C=0•FORB*1T08 : C=C-<PEEK <AS22+B+7657>-35>*21<8-B > 

184 PRINT"S TRVK EN TAST"; 

185 IFPEEK<1979=64THEN185 

186 GOTO!06 

190 IFC* 1THENP0KE7167+R . PEEKC716?+A >0R2T< 8-B > 

195 I FC*-1THENP0KE7167+ft. PFEK < 71.67+A ) AND < 255-21< 8-B ) > 

200 PR I NT " afsTiTsTsTsMsTsTsTsTSSSBr? " : GOT01 80 


NEXT:PRINTO NEXT 




Vi 
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Har du set lyset? 



Sd har du ogsd kobt COMputer nr, 2 

- og allerede least: Alt om Amigo - Commodores nye super¬ 
computer. Sadan sastter du hukommelsen pa armen - Super Seiko 
64. Indenbords i 128'eren. Spasndende rapport fra PCW Show i 
London. Modem - sadan kommunikerer din Commodore. Stortest af 
5 printere. Rapport fra en computer-camp, samt anmeldelser af 
bade soft og hardware. Nyeste tips til C16-Plus/4 samt 64'eren. 

Samt meget meget mere. Fas nu i kioskerne. Pris kr. 29.85. 


COMputer - for DIG og din COMMODORE 




